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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS IS A POP-11723 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF A_TSVOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11//23 SYSTEM 

(Q-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 

ON CERTAIN FUNCTIONS. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XxXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE egg fo OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER’S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


PDP-11/23 PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC REQUIRES 32k WORDS OF MEMORY 

(28K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDOP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS bsotmint. DOCUMENT NUMBER AC -F 348E -MC 
DATE: 14 JULY 1980 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK -TSV05-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVO5S-TM-OO1L 
DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER Ek -TSVO5S-IN-001 
DATE: AUGUST 1982 

1.4 OIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP-11723 CENTRAL PROCESSOR AND MEMORY 


FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 


El 
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1.5 ASSUMPTIONS 


ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA HAS RUN SUCESSFULLY. 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XxXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDOS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT , 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 


CONSIDERED TO BE ACTIVE AT START TIME 


DROP OEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”, 


2.1.1 OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A PDP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM, ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHQUS XxXDP+ USERS GUIDE,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


.R V1TSB?? 
DIAG. RUN-TIME SERVICES REV D. APR 79 
CvTSB-A-O 
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@eeeTSvOS LOGIC DIAGNOSTICesce 
~~ +y IS TSvos 
>» 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DODDD”. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8.9, a TO 
BE RUN. ALL OTHER TESTS WILL NOT BE R 

7PASS : 00000 EXECUTE DODDDD PASSES (DDDDD = 1 TO 64 64000) 


/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

7EOP : 00000 REPORT END OF PASS MESSAGE AFTER EVERY 
DODDD PASSES ONLY. (DDDDD = 1 TO 64000) 

/UNITS:LIsT TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1-S/PASS: 1000/E0P : 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE ENO OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE ye a YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-S" INSTEAD OF “/TESTS:1-5” 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


START x x x 


2.3 FLAGS 


Gl 
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FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR, ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IERe INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXE« INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

TSR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
j Moh Bt hte a8 REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?” 

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XxXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


FI 
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ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSDB = 172520, VECTOR = 224 


ON A "“Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. & 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A_ RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN “(CL)” INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"yY" FOR YES, “N” FOR NO. 


@ UNITS (0) 2? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMANG, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE 
PARAMETERS. THESE. PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER By TYPING 

“y", THE SOFTWARE QUESTIONS AND THE DEFAULT vALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE ¥ TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N 2? <TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
ESTS USE MULTIPLE 
ITERATIONS, > 
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2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_ TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A OEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNTTS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY SE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


® UNITS (0) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) © ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 4<CR> 
Q-FACTOR (0) 0 ? «CR» 

UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? «CR» 

UNIT 7 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1«CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
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SUB-DEVICE ® (0) ? 7«<CR> 
Q-FACTOR (0) 1? «<CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS vYOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
RI es THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 
UNIT 3 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TwO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3, 4 AND 5 WERE SPECIFIED. CIF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


® UNITS (0D) ? 8<CR> 


UNIT 1 

C3R ADDRESS (0) ? 169000<CR> 
SUB-DEVICE @ (0) ? O-7<CR> 
Q-FACTOR (0) 0 ? O,3cOcervksad*CR> 
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AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENC: OSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP-+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE “START” 

ANSWER THE “CHANGE HW” QUESTION WITH “Y" 
ANSWER ALL THE HARDWARE QUESTIONS 
ANSWER THE "CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


» WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


vn oO y ®& 


Li 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 

oo ed REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CVTS8 HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT > 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <8> ION<5S> IFBY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O> 
TAPE BUS SIGINALS IN WORD 09: 

DATMIS<7> ILW<6> OUTRDY<S> INRDY<4> 


#0 EXPD: 100020 RECV: 100020 XOR: 000000 


: 000000 000000 : 
#3 EXPD: 000010 RECV: 000010 xXOR: 000000 
: 000000 000000 2 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS 
oa ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
Y VE. 


CvVTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE = UNRECOVERABLE ERROR 

PACKET ADDRESS = 026420 . 

PACKET WORD # = 140010 

PACKET WORD @ = 000010 

PACKET WORD # = 000000 

PACKET WORD @ = 000024 


M1 
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ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CvTSB HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND CEXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 


4.9 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11/23) 


DR>STA/FLA: PNT : HOE : VAM 

UNITS (D) ? 1 

UNIT O 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE OIAGNOSTIC. THE COMMAND HAS THREE 
SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” , “HALT ON 
ERROR” AND “RUN IN UNATTENDED MODE”. 


NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 


TST: O01 INITIALIZE @3 TEST 
TST: O02 BASIC WRITE SUBSYSTEM MEMORY TEST 
TST: 003 OMA MEMORY ADDRESSING TEST 
TST: 004 RAM EXERCISER TEST 
TST: OOS FIFO EXERCISER TEST 
TST: 006 STATIC TRANSPORT BUS CHECK 
, TST: 007 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 
TST: 008 READ/WRITE DATA PARITY CHECK TEST 
TST: 009 MISCELLANEOUS LOGIC CHECKS TEST 
TST: 010 STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST 
TST: O11 STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST 
TST: O12 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 


Ni 
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O ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES ¢ 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP -11/235 
PROCESSOR WITH A LA-34 CONSOLE. 


THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE. WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED 8 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED SY ANSWERING THE 
INHIBIT. ETERATIONS QUESTION WITH A “Y" (YES). 


Test N/I ITER DEF 

NUMBER SECS. SECS SECS. 
1 1S so 35 
2 1 6 5 
3 1 ° 
4 110 540 430 
5 1 10 9 
6 10 120 110 
? 1 3 
8 iS iS le 
9 i7 i7 15 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 
Q.Vv. 2 MINS 19 SECONDS 
DEFAULT 11 MINS 35 SECONDS 
5.0 DEVICE INFORMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES: 
CHANGE HW (L) ? 


® UNITS (0D) ? <ENTER THE NUMBER OF 47196 CONTROLLERS 
PRESENT TO BE TESTED» 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER» 


VECTOR (0) 224 ? <ENTER ADORESS OF INTERRLOT 
VECTOR» 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKEC FOR EACr OF THE NUMBER OF 


“2 
IG. 
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UNITS (CONTROLLERS) SPECIFIED IN THE “@® UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
— aye Sg CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
L 


CHANGE SW (L) ? 


6.0 TEST SUMMARIES 
TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
TEST DESCRIPTION: 


THIS TEST VERIFIES THAT A HAROWARE INITIALIZE COMMAND 
INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS UP 
THE COMMAND, MESSAGE AND CHARACTERISTIC IMAGE BLOCKS 
IN THE CONTROLLER RAM CORRECTLY. 


TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
BSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. IT ALSO 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
MODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
COMMAND DECODING AND HANOLING SEQUENCES. 


TEST 3: OMA MEMORY ADDRESSING 


THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS AND 
ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED BY THE 
DIAGNOSTIC AND DIAGNOSTIC SUPERVISOR CODE) FOR BOTH READING (DATI) 
AND WRITING (DATO). VERIFIED ARE THE LSI-11 BUS DRIVERS FOR ALL 
AVAILABLE ADDRESS LINES. UP TO THIS POINT ONLY 16 BITS HAVE BEEN 
USED FOR DMA TRANSFERS. 


UP rrrriiririirirrirriiirriiiiiiiitiriti ity 
CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES 
ARE ONLY CHECKED WHEN RUNNING ON A 11/238 SYSTEM WITH MORE THAN 
126K WORDS OF MEMORY! 


SOSSOASESSSEHOASEEHEOHHESEEEEEEHOSHSESOOEEHHEOEHEEHHHEHESESEOEHOEEEDSE 


TEST 4; RAM EXERCISER TEST 


_ 


ae 
¢.. 
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THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 


TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,B 
TEST DESCRIPTION: 


THIS TEST VERIFIt€S THE INVERT EXTENDED FEATURES FUNCTION 
“ CAN LOGICALLY INVERT THE EXTENDED FEATURES SWITCH AND 
THAT THE INTERNAL TIMERS A AND B OPERATE CORRECTLY. 


TEST 6: FIFO EXERCISER 
TEST DESCRIPTION: 


THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
VERIFY THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND 
CONTROL LOGIC. 


TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
TEST DESCRIPTION: 


WRITE TO TSSR REGISTER TO SOFT INITIALIZE THE CONTROLLER 
DO WRITE CHARACTERISTICS TO CHECK FOR EXTENDED FEATURES SWITCH 
IF EXTENDED FEATURES HARDWARE SWITCH CLEAR THEN: 
DO WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENDED FEATURES. 
DO WRITE CHARACTERISTICS TO SELECT RESERVED UNIT 7 
DO A WRITE SUBSYSTEM READ STATUS 
IF ANY TRANSPORT INTERFACE SIGNALS ARE ASSERTED THEN PRINT ERROR 


TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 
TEST DESCRIPTION: 


THIS TEST VERIFIES THE CONTROLLER'S TRANSPORT BUS 
ORIVERS, RECEIVERS, AND SIGNAL LOOPBACK LOGIC. NOTE 
THAT THE STATIC TRANSPORT BUS TEST MUST HAVE RUN 
CORRECTLY FOR THIS TEST TO PROVIDE MEANINGFUL RESULTS. 


TEST 9%: READ/WRITE DATA PARITY TEST 
TEST DESCRIPTION: 


THIS TEST VERIFIES THAT THE WRITE DATA PARITY GENERATOR 
AND THE READ DATA PARITY CHECKER OPERATE PROPERLY. THE 
TRANSPORT BUS SIGNAL LOOPBACK MODE IS ENABLED AND A 

SET WRONG PARITY FUNCTION IS EXECUTED. THEN VARIOUS 
WRITE SUBSYSTEM MEMORY FUNCTIONS ARE PERFORMED TO 
WRITE DATA TO AND FROM THE FIFO IN LOOPBACK MODE. 

THE PROGRAM THEN CHECKS TO INSURE A READ DATA PARITY 
ERROR OCCURRED. 

A RESET FIFO IS DONE AND THE READ DATA PARITY 
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TEST 10: 


TEST Ll: 


TEST 12: 


De 
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ERROR BIT IS AGAIN esiee TO INSURE IT LEANED. 
FINALLY A CLEAR WRONG PARITY FUNCTION IS DONE 
AND IT IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK 
MODE WITHOUT SETTING READ DATA PARITY ERROR. 


MANUAL INTERVENTION 


THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST”) 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS ANO FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 

THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 

SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 6. 

SELECTION CODES AND SUBROUTINES ARE: 


CODE ROUT INE 


0 HELP. PRINTS THIS MENU. 

1 TURN ON ALL M7196 LED INOICATORS 
2 TURN OFF ALL M7196 LED INDICATORS 
3 OFFLINE/ONLINE ATTENTION TEST 

a WRITE-PROTECT TEST 

5 PRINT EXTENDED TRANSPORT STATUS 
6 EXIT CRETURN TO SUPERVISOR) 


CONFIGURATION TYPEOUT 


THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 


1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


3.0 MICROCODE REVSION LEVEL OF THE M7196, 
4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 


5.0 ag SELECT CODE AND STATE (ON_INE/OFFLINE, WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADOITION, THE PROGRAM WILL INDICATE, 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 


SCOPE LOOPS 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 
LOOPS” USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7196 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
“LOOP ON ERROR” OR “LOOP ON TEST (SUBTEST)” FACILITIES DON'T 


E2 
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SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS CI.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
ate apts gad SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
VAILABLE: 


CODE SCOPE LOOP 
HELP. PRINT THIS MENU, 


INITIALIZE (TSSR WRITE ACCESS) 

TSOB HIGH BYTE WRITE ACCESS 

TSOB LOW BYTE WRITE ACCESS 

TSDB MAINTENANCE -MODE WORD WRITE ACCESS 

TSDBX CTSSR HIGH BYTE) WRITE ACCESS 
CEXTENDED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 

8 EXIT CRETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS 
ARE 0-377, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


NOU SWwhr oO 


7.0 MAINTENANCE HISTORY 


REVISION A - MARCH 1982 
REVISION B - APRIL 1983 


MODIFIED THE DIAGNOSTIC TO HANDLE 11/23A'S 
WITH MORE THAN 256KB OF MEMORY. CHANGED 
TEST 3 SUBTEST 3 SO IT WON'T TRY TO CREATE 
NON-EXISTANT MEMORY ADDRESS (NXM). 


FO 
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2 -TITLE TSV2 - PROGRAM HEADER 
3 -SBTTL PROGRAM HEADER 
4 
10 -MCALL SVC 
11 000000 svc s INITIALIZE SUPERVISOR MACROS 
le -ENABLE LC 
13 -NLIST BEX,CNO 
19 000000 -ENABL ABS,AMA 
20 002000 . 2000 
21 002000 BGNMOD TSv2 
002000 TSV2:: 
22 
23 zee 
os ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
es 3 THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
26 hes 
e? 
28 002000 POINTER BGN3W,BGNSF T ,BGNAU, BGNOU, BGNRPT 
29 002000 MEADER CVTSB,.B,0,655.,0 
002000 L $NAME: : sOIAGNOSTIC NAME 
002000 103 «ASCII /C/ 
002001 126 -ASCII /v/ 
002002 124 -ASCII /T/ 
002003 123 «ASCII /S/ 
002004 102 -ASCII /8/ 
002005 000 -BYTE 0 
002006 000 -BYTE O 
002007 000 <OYTE © 
002010 LSREV:: sREVISION LEVEL 
002010 102 -ASCII /B/ 
002011 LSDEPO: : 30 
002011 060 , -ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000000 -WORD O 
002014 LS$TIML:: sLONGEST TEST TIME 
002014 001217 «WORD 655. 
002016 LSHPCP: ; sPOINTER TO H.W. QUES. 
002016 101362 «WORD LSHARD 
002020 L$SPCP:: sPOINTER TO S.W. QUES. 
002020 101514 -WORD  LSSOFT 
002022 LSHPTP: ; sPTR. TO DEF. H.W. PTABLE 
002022 002156 -WORD_L SHW 
002024 L$SPTP:: sPTR. TO S.W. PTABLE 
002024 002166 -WORD L$SW 
002026 L$LADP: : sOIAG. END ADDRESS 
002026 102004 -WORD LSLAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 -WORD O 
002032 LsCo:: 
002032 000000 -WORD O 
002034 LSOTrP:: sOIAGNOSTIC TYPE 
002034 000000 -WORD O 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 -WORD O 
002040 LSDTP:: sPTR, TO DISPATCH TABLE 
002040 002124 «WORD LSNDISPATCH 


002042 LSPRIO:: sOIAGPOSTIC RUN PRIORITY 


AM HEADER 


022352 
022450 
000000 
003410 
104035 
000000 
021556 
022636 
022556 
021546 
000000 
000000 
000000 
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LSENVI:: 
LSEXPL:; 
LSMREV:: 


LSEF:: 


LS$SPC:: 
LSDEVP:: 
LSREPF:: 
LSEXP4:;: 
LSEXPS:: 
LSAUT:: 
L$DUT:: 
L$LUN:: 
LSDESP: : 
L$LOAD:: 
LSETP:: 
LSICP:: 
LSCCP:; 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSOLY:: 
LSHIME:: 


. WORD 


ooo0dUmlUr/!MmONMmChUCOlUC OC 
we 


L$OvTYP 
L$RPT 

0 

0 

L$AU 
L$DuU 

i?) 
L$DESC 
E$LOAD 
0 
LSINIT 
LSCLEAN 
LSAUTO 
L$PROT 


Ge 


SEQ 019 


sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 
3SVC REV AND EDIT @ 


REVISION 


sOIAG. EVENT FLAGS 


s POINTER TO DEVICE TYPE LIST 
:PTR. TO REPORT CODE 


sPTR. TO ADD UNIT CODE 

sPTR. TO OROP UNIT CODE 

s;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
;GENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

sPTR, TO INIT CODE 

sPTR. TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

;PTR. TO PROTECT TABLE 

;TEST NUMBER 

;DELAY COUNT 

3PTR. TO HIGH MEM 


He 
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DESBATCH TABLE ; 
31 .SBTTL OISPATCH TABLE 
32 
33 zee 
34 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
35 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
ales 
37 
38 002122 DISPATCH 12 
002122 000014 .WORD 12 
002124 LSDISPATCH: : 
002124 023446 -WORD Tl 
002126 024426 WORD T2 
002130 026420 WORD = -T3 
002132 032014 WORD 14 
002134 034604 WORD TS 
002136 040376 WORD 16 
002140 050510 WORD 17 
002142 051770 WORD 18 
002144 062616 WORD 19 
002146 066666 WORD. T10 
002150 074530 WORD Til 


002152 077702 “WORD T12 


TSV2 - PROGRAM HEADER 


DEFAULT HARDWARE P- TABLE 


000003 


172520 
000224 
000200 


Te 
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-SBTTL DEFAULT HARDWARE P-TABLE 


gee : 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


— 
BGN' OF PTBL sDEFAULT HARD -P - TABLE 
eWu2 L10000-L$HW/2 


DFPTBL 
. WORC 172520 ; 1ST COF 2) REGISTERS. 
-WORD 224 ; INTERRUPT VECTOR 
.wORD PRIO4 ; INTERRUPT PRIORITY. 
ENOHW 

10000: 


Je 
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SOFTWARE P-TABLE 
54 -SBTTL SOFTWARE P-TABLE 
55 
56 pee 
57 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
=. ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
3 -- 
60 002164 BGNSW SFPTBL 
002164 000004 . WORD L10001 -L$Sw/2 
002166 L$SW:: 
. 002166 SFPTBL:: 
1 
62 002166 000000 TRANSTST:: . WORD Oo ; ENABLE TEST OF TRANSPORT(S) IF =1 
63 002170 000000 NOITS:: . WORD 0 ; INHIBIT ITERATION OPTION. 
64 3 ... O = ITERATE. 
65 s ...NZ = INHIBIT ITERATE. 
66 002172 000017 LERRMAX: : . WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
67 002174 000310 GERRMAX: : . WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
68 002176 ENOSW 
- 002176 L10001 


TSV3 - GLOBAL AREAS 


SOFTWARE P - TABLE 


20 002176 
002176 


8 
32 002176 
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TSV3:: 


see 
; THE GL 


Ke 
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-TITLE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 


BGNMOD TSv3 
-SBTTL GLOBAL EQUATES SECTION 


OBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST. 


EQUALS ; GET STANDARD EQUATES. 


; 
; BIT OIFINITIONS 


; 
BIT1S== 
BIT14== 
BIT13== 
BIT1l2== 
BIT11== 
BIT10== 
BITO9== 
BITO8== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITO3== 
BITO2== 
BITO1== 
BITOO== 


BIT9== 
BITS== 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BIT3== 
BIT2== 
BIT1== 
BITOs= 


3 
3; EVENT 


FLAG DEFINITIONS 


; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


i: 
EF .START 


EF .RESTART== 31. 


EF .NEW== 


2s 32. START COMMAND WAS ISSUED . 


RESTART COMMAND WAS ISSUED 
A NEW PASS HAS BEEN STARTED 


; 
H 
EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
3 
i 


EF .PWR== 
é 


: 
; PRIORI 


A POWER -FAIL /POWER -UP OCCURRED 


Ty LEVEL DEFINITIONS 


TSV3_ - GLOBAL AREAS 
GLOBAL EQUATES SECTION 


34 002176 


000250 


177572 
177574 
177576 
172516 


Le 


MACRO M1113 06-FEB-84 17:14 


é 
PRIO7== 340 


PRIO6== 300 
PRIOS== 240 
PRIO4=*= 200 
PRIO3«= 140 
PRIO2*= 100 
PRIO1== 40 
PRIOO== 0 

a 

sOPERATOR FLAG BITS 
3 

EVL== 4 
LOT=< 10 
ADR== 20 
TO0U== 40 
ISR*= 100 
UAM== 200 
BOE == 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 


IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


KT11 ee 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3#KT11 VECTOR ADDRESS 
MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 
SR1i= 177574 
SRe= 177576 
SR3= 172516 
.IF NB 
;#USER “I” PAGE DESCRIPTOR REGISTERS 
UIPORO= 177600 


UIPOR7= 177616 


s#USER “D” PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 
UODPDR1= 177622 
UDPDR2= 177624 
UDPDR3= 177626 
UDPOR4= 177630 
UDPORS= 177632 
UDPDOR6= 177634 
UDPDR7= 177636 


SEQ 024 


;DEF INE MEMORY MANAGEMENT REGISTERS 


FEMEni BAERSEMER Ger rc PRGRQ MIS 08-FEB-4 1721 


s#USER “I” PAGE ADDRESS REGISTERS 


UIPARO= 
UIPAR1L= 
UIPAR2= 


177640 

177642 
177644 
177646 
177650 
177652 
177654 
177656 


Me 


sAUSER | “D" PAGE ADDRESS REGISTERS 


177660 

177662 
177664 
177666 
177670 
177672 
177674 
177676 


172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 


SEQ 025 


NB 
JeSUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 


isSUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 


DPDRO= 
SOPOR1= 
SOPDR2= 
SOPOR3= 
SDPOR4 = 
SOPORS= 
SOPDR6= 
SOPOR7= 
- ENDC 


172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 


A aaah "I" PAGE ADDRESS REGISTERS 


SDPARO= 
SOPAR1= 
SOPAR2= 
SDPAR3= 


172240 


NB 
;#SUPERVISOR "D“ 


172260 
172262 
172264 
172266 


PAGE ADDRESS REGISTERS 


TSV3_- GLOBAL ARE 


MEMORY MANAGEMEN 


T 


172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 


Ne 
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172270 
172272 
172274 
172276 


KIPDRO= 172300 


KIPOR1= 


. IF NB 
3 *KERNEL 
ae 


3; «KERNEL 
KIPARO= 
KIPAR1= 
KIPAR2= 
KIPARS= 
KIPAR4= 
KIPARS= 
KIPAR6= 
KIPAR7= 
.IF NB 

; #KERNEL 
KDPARO= 
KDPARi = 
KDPAR2= 
KDPAR3= 
KDPAR4G= 
KDPARS= 
KDPAR6<= 
KDPAR7= 
. ENOC 


“D" PAGE 
TOR REGISTERS 
172320 


SEQ 026 
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TSVOS REGISTER AND PACKET DEFINITIONS 


100000 
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3 
s SOME GENERAL EQUATES. 


ERRVEC == 
TTIVEC?= 
TTICSRe= 
TTIBFRe= 
BOVPCR== 


7:14 


BS 


SEQ 027 


-SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 


4 

60 
177560 
177562 
177520 


s POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
s INTERRUPT VECTOR FOR CONSOLE INPUT 

s BUS ADDRESS OF CONSOLE INPUT 

s CONSOLE INPUT DATA BUFFER 

s BOV11 PAGE CONTROL REGISTER 


3¢ 
sBIT DEFINITIONS FOR TSSR REGISTER 


OFL®= 
FATERR= 
TERCLS= 


BIT15 
BIT14 
BIT13 
BITi2 
BIT11 
BIT10 
BITS!BITS 
BIT7 

IT6 
BIT4:BITS 
BITS!BIT2:BIT1 


sSPECIAL CONDITION 

18US INTERFACE ERROR 
sSANITY CHECK ERROR 
sMOOIFICATION REFUSED 
sNONEXISTANT MEMORY ERROR 
sNEED BUFFER ADDRESS 
sEXTENDED ADORESS BITS 
3SUB SYSTEM READY 

sOFF LINE BIT 

sFATAL TERMINATION ERROR CODES 
s TERMINATION CODES 


3 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


s(XSTO) 
b 
§° 


XSOTMKe 
XSORLS= 
XSOLETe 
XSORLL® 
XSOWLE = 
XSONEF e 
XSOILC®= 
XSOILA= 
XSOMOT «= 
XSOONL = 
xSOIE« 

xSOvCKe 
XSOPED= 
XSOWLK = 
xSOBOT = 
XSOEOT= 


sTAPE MARK DETECTED 
sRECORD LENGTH SHORT 
sLOGICAL END OF TAPE 
sRECORD LENGTH LONG 
sWRITE LOCK ERROR 
sNON EXECUTABLE FUNCTION 
sILLEGAL COMMAND 
sILLEGAL ADDRESS 

s TAPE IN MOTION 

s TRANSPORT ON LINE 
sINTERRUPT ENABLE 
sVOLUME CHECK BIT 


sBEGINNING OF TAPE 
sEND OF TAPE 


te? 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


3(x5T1) 
os 
x1.0.1 


* BITIS 


sDATA LATE 


C3 
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TSVOS REGISTER AND PACKET DEINTPTONS oe SEQ 028 
OF 040000 X1.SPARE* BIT14 sNOT USED 
97 020000 X1.COR © BIT13 s;CORRECTABLE DATA ERROR 
98 017375 X1.MBZ = 1112-81111 -81T10-B119+8117-BIT6-B1TS B1T4-BI1S. BIT2-BITO ;ALWAYS O 
99 000400 X1.RBP © BITS READ BUS PARITY ERROR 
100 000002 X1.UNC «© BITL JUNCORRECTABLE DATA OR HARD ERROR 
102 : 3° 
103 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
108 3(XST2) 
1 “ 
106 100000 X2.0PM » BITIS s OPERATION IN PROGRESS (TAPE MOVING) 
107 040000 X2.RCE »© BITI4 M CHECKSUM ERROR 
108 035400 X2. SPARE « BIT13« erri2-B1tii.efr9-eive sNOT USED BY TSVOS (ALWAYS=0) 
109 002000 X2.WCF «© BITL E CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
110 000200 X2.EXTF « Bits. + warie CHAR CMD THEN «= EXTENDED FEATURES ENABLED 
Lil 000100 X2.BUFE = BIT6 sIF WRITE CHAR CMD THEN = BUFFERING ENABLED 
112 000077 X2.REV = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
113 000007 X2,UNIT © BIT2+BIT1+BITO. sIF GET STATUS THEN © CURRENTLY SELECTED UNIT NO. 
115 ye 
116 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
1? 3(XST3) 
3 - 
119 177400 X3.MDE © 177400 sMICRO-DIAGNOSTIC ERROR CODE 
120 000200 X3.SPARE* BIT7 sNOT USED BY TSVOS 
121 000100 X3.0PI = BIT6 sOPERATION INCOMPLETE 
122 000040 X3.REV © BITS sRE VERSE 
123 000020 X3.TRF © BIT4 s TRANSPORT RESPONSE FAILURE 
124 000010 x3.0CK = BIT3 sDENSITY CHECK 
125 000006 X3.MBZ *BIT2-BIT1 sNOT USED ALWAYS O 
126 000001 x3.RIB © BITO sREVERSE INTO BOT 
128 se 
129 s8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
tee 3(XST4) 
+ _ 
132 100000 X4.HSP «© BITIS sHIGH SPEED 
133 040000 X4.RCE = BIT14 sRETRY COUNT EXCEEDED 
134 020000 X4.TSM = BITL3 ; TRANSPORT SPECIAL MODE 
135 017400 X4.MBZ = BIT12-B1T11-81110-8119-81T8 sNOT USED ALWAYS 0 
136 000377 X4.WRC *= 00037 ;WRITE RETRY COUNT FIELD 
138 3° 
139 ; 
140 sTSSR TERMINATION CODES (BIT 0-2) 
4 
142 ‘. 
143 
144 000006 TSREJ= 302 sCOMMAND REJECTED 
aes 000006 UNREC* 6 sUNRECOVERABLE ERROR 
147 3 > 
148 3 
149 sDEVICE REGISTER OFFSETS 
150 3 
151 3° 


TSvs_- SAT AREAS 
TSVOS REGISTER AND PACKE 
153 000000 
154 000000 
155 000001 
156 000001 
15? 000002 
158 000003 
159 
160 
161 
162 
163 000003 
164 
165 
166 
167 
168 000017 
169 000013 
170 000012 
171 000011 
i72 000010 
173 000006 
174 000005 
175 000004 
176 000001 
177 
178 
179 
180 
181 100000 
182 040000 
183 020000 
184 010000 
185 007400 
186 000200 
187 000140 
188 000037 
189 
190 
191 
192 000000 
193 000400 
194 001000 
195 002000 
196 002400 
197 
198 
199 
200 
201 000167 
202 0002C0 
203 000201 
204 000210 
205 000215 
206 0002 34 
207 
208 
299 


TSBAes O 
TSDR== O 
TSBAHs= 1 
TSOBH== 1 
TSSRe= 2 
TSSRHe* 35 


DS 


n R nth hans°° FEB-84 17:14 SEQ 029 


1s TSDB/TSBA REGISTER 


sTSOB/TSBA REGISTER HIGH BYTE 
sTSSR REGISTER 
sTSSR REGISTER HIGH BrTe 


tid I 
+ TSOB ADDRESS BiT DEFINITIONS 


2? 

A1l716 = = BIT1+BITO sADDRESS BITS 17:16 ARE IN 1:0 

3° 

: COMMAND DEFINITIONS 

7? 

P.GETSTAT * 17 sGET STATUS 

P. INIT e 13 s INITIALIZE 

P . CONTROL * le sCONTROL COMMANDS 

P. FORMAT * 11 sFORMAT 

P POSITION * 10 sPOSITION 

P.WRTSUB © 6 sSUBSYSTEM WRITE 

P.WRITE ° 5 sWRITE 

P.WRTCHAR = 4 sWRITE CHARACTERISTICS 

P.READ e 1 sREAD 

3¢ 

: COMMAND PACKET HEADER WORD BIT DEFINITIONS 

es 
P.ACK = BITIS sBUFFER AVAIL FOR CONTROLLER 
P.CvC = BITI4 sCLEAR VOLUME CHECK 
P.OPP = BIT1S sREVERSE SEQUENCE OF DATA BITS 
P.SWB = BIT12 sSWAP BYTES IN MEMORY 
P.MODE = BITL1:8rr10:e8rT9:8118 sEXTENDED COMMAND MODE FIELD 
PIE « BIT s INTERRUPT ENABLE 
P.FMTs arte !airs sPACKET HEADER TYPE (ALWAYS=0) 
P.CMD == (37 sMAJOR COMMAND FIELD 

3° 

s CONTROL COMMAND MODE CODES 

- 
PC .RELEASE * 00256. sRELEASE BUFFER 
PC .REWIND = 14256. sREWIND 
PC .NOOP * 20256. sNO -OP 
PC. IEREW = 40256. sREWIND IMMEDIATE INTERRUPT 
PC .ERASE * 50256. sSECURITY ERASE 


: CONTROLLER RAM DEFINITIONS 


g¢ 

RMCHBEG = 
RMCHENOD = 
RMPK TBEG= 
RMPKTEND= 
RMMSGBEG= 
RMMSGEND « 


5° 
a 


; 
sREGISTER 


167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
201 sCOMMANO PACKET BEGIN RAM ADDRESS 

210 sCOMMAND PACKET END RAM ADDRESS 

215 sMESSAGE BUFFER BEGIN RAM ADDRESS 

234 sMESSAGE BUFFER END RAM ADDRESS 


DEFINITIONS IN THE MESSAGE BUFFER 


a 


TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 SEQ 030 
TSVOS REGISTER AND PACKET DEFINITIONS 
210 
St} ; 
213 000006 XSTO#= 6 rEXTENDED STATUS REGISTER 0 (WORD 4) 
214 000010 xSTle*= 6, sEXTENDED STATUS REGISTER 1 (WORD 5) 
e215 000012 XST2*= 10. sEXTENDED STATUS REGISTER 2 (WORD 6) 
216 000014 xST3=*= 12, sEXTENDED STATUS REGISTER 3 (WORD 7) 
217 000016 XST4*e= 14, sEXTENDED STATUS REGISTER 4 (WORD 8) 
218 
219 3° 
220 ’ 
oo sOFF SETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
3 
Bs , 
225 000002 PKLOW = 2 sLOW ORDER CHARACTERISTIC DATA POINTER 
226 000004 PKHI = 4 sHIGH ORDER CHARACTERISTIC DATA POINTER 
oH 000006 PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
se. 000010 EXBCNT=10 sNUMEER OF BYTES IN EXTENDED DATA PACKET 
231 3¢ 
232 sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
233 - 
234 000000 BSELO = 0 ;BYTE O 
235 000001 BSEL1 a ' ;BYTE 1 
236 000002 SEL2 2 2 sWORD 2 
237 000004 SELDATA = 4 sWORD 3 
238 
239 ze 
ot ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
is 
242 000000 Pw. NOP = 0 3NO -OP 
243 000001 Pw.RORAM = 1 sREAD RAM 
P44 000002 Pw. WTRAM = 2 sWRITE RAM 
245 000003 Pw. RF IFO = 3 sREAD FIFO 
246 000004 Pw. WFIFO 2» 4 sWRITE FIFO 
247 000005 Pw.RDSTAT = 5 sREAD STATUS 
248 000006 Pw. WCTL = 6 sWRITE TAPE CONTROL 
249 000007 Pw. WMT s 7 sWRITE TAPE FORMAT 
250 000010 Pw. WMISC * 10 sWRITE MISCELLANEOUS 
251 000011 Pu = 11 ;sWRITE NPR CONTROL 
252 000620 Pw.022 = 20 300 MICROTEST 22 
253 000021 Pw.D11 = 21 300 MICROTEST 11 
254 000022 Pw.013 = 22 300 MICROTEST 13 
255 000023 Pw.NO1311 = 23 sOISABLE MICROTEST 11 AND 13 
oat 000024 Pw.RDEXT = 24 sREAD EXT. TAPE STATUS CNOT SUPPORTED BY ALL TRANSPORTS 
258 3° 
44 ;B8SEL1 CODES FOR WRITE TAPE CONTROL 
s- 
261 000200 wc. IFAD « BIT7 sIFAD - FORMATTER ADDRESS 
262 000100 wC.IOTAD * BIT6 sITADO - TRANSPORT ADDRESS BIT O 
263 000046 WC.J1TAD « BITS sITAD1L - TRANSPORT ADDRESS BIT 1 ‘ 
264 000020 WC. ISRESV « BIT4 sIRESVS - RESERVED 05 é 
265 000010 WC. IREW * BITS ; IREW - REWIND 
266 000004 WC. [Rw » BIT2 3; IRWU - REWIND AND UNLOAD 


TSV3_ - GLOBAL AREAS 
TSVOS "REGISTER AND PACKET DEFINITIONS 


000002 
000001 
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we. s 
-IGO ® 


wc 


IFEN 


r2 


3° 
sBSEL1 CODES FOR WRITE FORMAT 


hes 
WF 


Wr 


3 

sBSEL1 CODES FOR WRITE 
ee 
MS. 


. IHISP 
WF. 
AFL TREV 
WF. 
WF. 
WF. 
. ISRESV 
WF. 


IWRT 


IWFM 
Ie€OIs 
IERASE 


I4RESV 


EXT . 
MS .RSFIFO ° 
MS .RSTAPE ° 
MS.ATTN * 
MS .RSD ° 


BIT7 
BIT6 
BITS 
BIT4 
BITS 
BITe2 
BIT1 
6ITO 


BIT7 
BIT4 
BIT3 
BIT2:BtT1 
BITO 


3? 
; MS.ATTN SUBCODES 


MSA.NOP = 
MSA.VOL = 


MSA.FRAM= 


O22 


SEQ 031 
;IFEN - FORMATTER ENABLE 
:G0 
sIHISP - HIGH SPEED 
sIWRT - WRITE 
3 IREV - REVERSE 
s IWFM - WRITE FILE MARK 
sIEDIT - EDIT 
sIERASE - ERASE 
sIRESV3 - RESERVED #3 
sIRESV4 - RESERVED 04 


MISCELLANEOUS SUBCOMMAND 


s INVERT SENSE OF EXTENDED FEATURES SWITCH 
sRESET FIFO AND INPUT PARITY ERRORR 

sRESET TAPE STATUS IN 2 FLIP-FLOPS 
sATTENTION TRIGGER FIELD 

sRESET TIMER A,B THEN DELAY TIMES IN SEL2 


sNO-OP (NOTHING TRIGGERED) 

sSIMULATE ON-LINE/OFF-LINE TRANSISTION 

sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


3° 
; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


IR - 
OuT : 
LOOP . 
wRP . 


s INTERRUPT REQUEST (0-1 TRANSITION) 

sTAPE DATA OIRECTION OUT (0O= IN) 

sENABLE TRANSPORT LOOPBACK 

sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 


; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


Len 
2n 
seeeeeneeenenennnse 


‘ ISPEED 


BIT2 
BIT1+BITO 
BITiS 
BIT14 
BIT13 
BIT12 
BITi1 
aItio 
BITS 

BIis 

BIT? 


;WORD #9 BYTE 2 DATA IN MISS 
ILW H 


3 
F OUT RDY H 

PF IN ROY 

3 TIMER A FLAG H 
3 TIMER B FLAG H 
3 CUNDEF INED ) 

;WORD #8 BYTE 1 PARIN H 

3 IRESV2 

3 IRESV1 

3 IEOT L 

3 IIOENT 

: ICER 

F IFMK H 

3 IHER 

sWORD 08 BYTE O ISPEED 


GQ) 
N 


TSV3_- GLOBAL AREAS MACRO _M 06 -FEB-84 17:14 SEQ 032 
TSVOS REGISTER AND PACKET bePrnt tons 

324 000100 SO. IRDY = BIT6 : TROY L 

325 000040 SO. ITONL = BITS ; TONL L 

326 000020 SO. ILOP * BIT4 : TLOP L 

327 000010 SO. IDByY * BITS : IOBY L 

328 SO. IRwu * BIT2 ’ IRWO L 

329 000002 SO. IFBy * BIT1 ; IFBY L 

330 900001 SO. IFPT * BITC ; IFPT L 

a4" .SBTTL SPECIAL MACROS AND OPDEFS. 

333 i¢ 

334 sSAVE GENERAL REGS 1 TO 5 

335 "he 

336 

237 -MACRO SAVREG 

338 JSR RS,REGSAV 

339 .ENOM 

340 

341 z¢ 

ms ; MACRO TO FORCE AN ERROR 
ed 

344 -MACRO FORCERROR TAG,NOTSSR 

345 -NLIST 

346 .TIF NOF LISTALL, .NLIST 

347 -LIST 

348 .IF B NOTSSR 

349 MOV TSSR(RS),R2 sREAD TSSR 

350 .ENOC 

351 MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 

352 BNE TAG :8R IF YES 

353 -NLIST 

354 -IIF NOF LISTALL, .LIST 

355 -LIST 

356 .ENOM 

357 

358 Pr 

359 ; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

360 ; WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

361 ’ SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

362 : FORCER TO 177777 

94 ; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
ag 

365 .MACRO FORCEXIT TAG 

366 -NLIST 

367 - TIF _NOF LISTALL, .NLIST 

368 -LIST 

369 MOV FORCER,FORCER ;I1S Concen NEGATIVE ? 

370 BMI TAG ;BR IF YE 

371 -NLIST 

372 -IIF NOF LISTALL, .LIST 

373 -LIST 

374 . ENOM 

375 i° 

te ’ MACRO TO INCREMENT ERROR COUNTS 

‘ 
378 “MACRO NEXT, ERRNO 
379 «NLIS 


380 ba. tIF NOF LISTALL, .NLIST 


H3 


SV3 - GLOBAL AREAS Acro M1113 0O6-FEB-84 17:14 SEQ 033 
SBLCTAL MACROS AND OPDEFS 
381 ERRNO=ERRNO+1 
382 333.IIF NOF LISTALL, .LIST 
383 AL iot 
384 .ENOM 
385 
386 3° 
387 sMACRO TO PERFORM XOR 
388 $- 
389 
390 MACRO xXOR A.B 
391 V A, -(SP) 
392 BIC B,(SP) 
393 BIC A.B 
394 BIS (SP)+.B 
— .ENOM 
397 000000 EN=0 3: INITIALIZE ERROR NUMBER 
398 .SBTTL FORCER - FORCE ERROR FLAG 
399 
400 : 
401 ; THE FOLLOWING LOCATIONS MAY BE SATCHED BY THE USER 
ro ; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
3 
404 
405 002176 000000 FORCER:: f¢) : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
406 ’ - BY THE MACRO “IFERROR”). AN ERROR NEED NOT 
407 EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
408 . SBTTL GLOBAL DATA SECTION 
re 
41 
411 i THE GLOBAL DATA 3 ae CONTAINS DATA THAT ARE USTD 
412 :IN MORE THAN ONE TEST 
413 t-- 
414 
415 : 
416 ;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
ata ;SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
3 
419 002200 000000 EPRTSW:: -WORD O sPRINT SWITCH 
420 002202 000000 UNITN:: -WORD O sUNIT @ UNDER TEST. 
421 002204 000000 QvP:: -WORD O sQuICK VERTFY FLAG. 
422 002206 000000 CSRADOR: : -WORD O sADDRESS OF CSR FOR CURRENT DEVICE 
423 002210 000224 IVEC:: »-WORD 224 s INTERRUPT VECTOR 
424 002212 000200 IPRI:: .WORD PRIO4 s INTERRUPT PRIORITY. 
425 002214 000000 TSTCNT: WORD O sNUMBER OF TESTS RUN IN THIS PASS 
426 002216 000000 LOOPCNT WORD O sREMAINING ITERATION COUNT FOR TEST 
427 002220 000000 DEVCNT WORD O sNUMBER OF DEVICE UNDER TEST 
428 002222 000000 FATFLG WORD O sSET IF FATAL ERROR IS DETECTED IN TEST 
429 002224 000000 INTRECV:: WORD O sSET IF TAPE INTERRUPT WAS RECEIVED 
430 002226 000000 EXTFEA WORD 0O sEXTENDED FEATURES SOFTWARE SW O=OFF ;1=0N 
431 002230 000000 BENBSW WORD O sBUFFER ENABLE SWITCH SW O=0FF;i=0N 
432 002232 000000 EXPO: WORD O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
433 002234 000000 RECV: WORD O sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
434 002236 000000 ERRHI wORD O sHIGH ADORESS MEMORY ERROR 
435 002240 000000 ERRLO WORD O ;LOW ADDRESS MEMORY ERROR 
436 002242 RAMDATA:: .SLKW 16. sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
437 002302 000000 RAMSIZ:: . WORD fe) ;RAM DATA SIZE FOR PRAMPKT ROUTINE 


TSV3_ - GLOBAL AREAS 
GLOBAL DATA SECTION 


438 
439 
44d 
441 
442 
443 
aaa 
445 
446 
447 
448 


173777 
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RCVHIADD: : 
RCVLGADD: : 


3¢ 


SEQ 034 
«WORD O sRECEIVED BUFFER HIGH ADDRESS 
-WORD O sRECEIVED BUFFER LOW ADDRESS 
-WORD O sTEST COUNT PATTERN 
-WORD O sTEST DATA 
-WORD O s TEST FLAG WORD 
-WORD O sTSTBLK POINTER 
«WORD O sPRINT ROUTINE TEMP 
-BLKB = 100. sEXPECTED MESSAGE BUFFER DATA 


-BLKB = 100. sRECEIVED MESSAGE BUFFER DATA 
s TEMPORARY STORAGE FOR PRINT 


33 .BLKB 80. 
.SBTTL TSTBLK - TEST DATA TABLE 


3 

;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
3 

3=IN SEQUENCE THE DATA IS: 


TSTBLK:: 


SSSSSSSSSSSSSSSESSU553 


ALL ZEROS 


WALKING ZEROS 
ALTERNATING ONES AND ZEROS 


ie) sALL ZEROS 
177777 sALL ONES 
BITO sDATA FOR WALKING ONES 


tCBITO sDATA FOR WALKING ZEROS 


tCBITit 


J3 


TSV3 - GLOBAL AREAS MACRO M1113 O06-FEB-84 17:14 , SEQ 035 
TSTBLK - TEST DATA TABLE 
495 003046 167777 -WORD *tCBIT12 
496 003050 157777 -WORD *tCBIT13 
497 003052 137777 -WORD *tCBIT14 
498 003054 077777 . WORD tCBIT15 
499 0035056 125252 -WORD 125252 sALTERNATING ONES, ZEROS 
SOO 003060 052525 «WORD 052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 
501 003062 TBLEND==, 
Soe -SBTTL GLOBAL ENVIRONMENT STORAGE 
; 
4 sSTORAGE FOR DEVICE REGISTERS 
3 
506 003062 000000 100000 000000 DUMMY: 0,100000,0,0 sDUMMY DEVICE REGISTERS... 
507 003072 000000 000000 000000 0,0,0,0,0,0,0,0 
510 003112 000000 DUFLG WORD O "DROPPED UNIT” FLAG. 
Sil sINHIBITS CODE IN "CLEAN-vP”. 
ste 003114 000000 NODE V WORD O sFL AG TO SAY NO DEVICE. 
514 003116 000000 TEMP 1 WORD O ;SOME TEMP LOCATIONS. 
515 003120 000000 TEMP2 WORD O 
516 003122 000000 XXCOMM: WORD O sXXDP+ COMM BLOCK POINTER. 
51? 003124 000000 FREE WORD O peed FREC MEMORY ADDRESS... 
518 003126 000000 FRESIZ WORD O -ANO SIZE (CIN WORDS). 
519 003130 000000 FREEHI: .WORD 0 ;LAST WORD IN FREE SPACE 
520 003132 000000 KTFLG -WORD O sKT11, MEM AVAIL FLAG - 
S21 een O = <24K OR NO KT - 
S22 NZ = >24K AND KT. 
S23 003134 000000 KTENABLE: : -WORD O SSET BY he ae ROUTINES TO FLAG >28K UNDER TEST 
524 003136 000000 NXMFL.G -WORD O sSET IF WE CAN TEST CLEARED O!HERWISE 
S25 003140 000000 NXMLO -WORD O sNXM LO ADDRESS BITS 
526 003142 000000 NXMHI -WORD O sNXM HI ADDRESS BITS FOR NAL’S 16-21 
527 003144 000000 T23A -WORD 0 311/723A FLAG 
528 003146 000000 T238 -WORD O 3117238 FLAG 
S29 003150 000000 T3BFLG -WORD O sTEST 38 FLAG tO 
530 003152 002000 PST32W -WORD 2000 332W BLOCK ADDRESS FOR 32k START 
531 003154 000000 SIFLAG «WORD O ; 
532 003156 000000 BADDAT -WORD 0 sACTUAL DATA 
533 003160 000000 GDDAT -WORD 0O sEXPECTED DATA 
534 003162 000000 LOOPFL -WORD O 
535 003164 CTAB ook ret ggy TABLES. 
536 003164 000000 CTABM -WORD O sCONFIG WORK 
537 003166 000000 -WORD O 
538 003170 000000 -wORD O 
539 003172 000000 «WORD O 
540 003174 177777 i . WORD 1 sEND OF MEM TABLE. 
541 003176 CTABE:: 
ze sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
544 ; te) * UNIT NOT TESTED 
345 ; 100000 = UNIT ONLINE, NO ERRORS 
546 3 LOXXXX = UNIT ONLINE, ENCOUNTERED Xxxx ERRORS 
347 ; 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
548 ; 160001 = UNIT DROPPED, NOT IDLE AT START 
Zee ; L4XXxxX UNIT DROPPED, ENCOUNTERED Xxxx ERRORS 
i 
551 003176 ERTABL ; -BLKW 64, 


TSV3_ - GLOBAL AREAS MACRO M -FEB- : 
GLOBAL. ENVIR NT STORAGE 1113 06-FEB-84 17:14 SEQ 036 
sae 003376 000000 ERTABE : -WORD O 


554 003400 000000 SKIPT; .WORD 0 s1*SKIP SUBTEST O-NO SKIP OF SUBTEST 


TSV3 - GILOBAL AREAS 
GLOBAL TEX’ MESSAGES 


124 


052 


L35 
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123 


o0S2 


126 


0S2 


.SBTTL GLOBAL TEXT MESSAGES 


zee 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
3; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

= 2 


3° 
sNAMES OF DEVICES SUPPORTED 
es 

DEVTYP <TSVOS> 


LS$DVTYP:: 
.ASCIZ /TSVOS/ 
.EVEN 


3? 
;TEST DESCRIPTION 
oo 
DESCRIPT <#eee TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR see> 


L$DESC:: 
— /aeee TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR seee/ 
-EV S 


3° 
;BIT TO ASCII CONVERSION FOR TSSR REGISTER 
g° 


TSSRBIT:: «WORD 13,2$,3%,4$,5%,6$,7$,8$ 
-WORD 9$,10$,11$,12$,15%,14$,15$, 16% 

1$ ASCIZ ‘SC’ 

2s: ASCIZ ‘BIE’ 

3% ASCIZ ‘SCE’ 

as ASCIZ ‘RMR’ 

S$ ASCIZ ‘NXM’ 

6$ ASCIZ ‘NBA’ 

7$ ASCIZ ‘BIT9' 

8s ASCIZ ‘BIT8' 

9$ ASCIZ ‘SSR’ 

10$ ASCIZ ‘OFL' 

11% ASCIZ ‘BITS’ 

12s ASCIZ ‘BIT4' 

13% ASCIZ ‘BIT3' 

14% ASCIZ ‘BIT2' 

15% ASCIZ ‘BIT1' 

16% ASCIZ ‘BITO’' 

EVEN 


SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 

SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 

NXR: -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX: .ASCIZ /#A ADDRESS: S06/ 

TSSX: -ASCII /#A TSBA,TSSR EXP'D: #068A,8068N/ 
-ASCIZ /#A TSBA,TSSR REC'D: #8068A,806/ 

FUSI: -ASCII /ssNSA/ 

USI: .ASCIZ / UNEXPECTED INTERRUPT/ 

NSI: -ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 


TS - AL_AREA 
G2b Bac 34 He Seaices 
627 004215 045 
628 004221 040 
629 004256 040 
630 004300 045 
631 004335 040 
632 004407 040 
633 004457 040 
624 
635 004527 000 
636 004530 045 
637 004533 045 
638 004567 045 
639 004643 045 
640 004745 122 
641 005013 040 
642 005056 127 
643 005113 124 
644 005206 124 
645 005300 106 
646 005372 105 
647 005460 045 
648 005554 045 
649 005645 045 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 005736 
005736 
660 005736 
005736 013746 
005742 012746 
005746 012746 
005752 010600 
005754 104415 
005756 062706 
661 005762 004737 
662 005766 ; 
005766 
005766 104423 
663 
664 
665 
666 
667 
668 005770 005727 
669 005772 000000 
670 005774 001402 
671 005776 004777 
672 006002 
006002 012746 
006006 012746 
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116 


003114 
003777 
000002 


000006 
005770 


177770 


004530 
000001 


FNOINTR: 
NOINT®?: .ASCIZ 
IFAULT: _ASCIZ 
INTX: ASCII? 
NOINIT: .ASCIZ 
NSINIT: .ASCIZ 
BRINIT: .ASCIZ 
NUL: ASCIZ 
NULCR: .ASCIZ 
EXPGOT: .ASCIZ 
EXPGT2: .ASCIZ 
DUAD1I2: .ASCIZ 
PKTRAM: ; 
SCME : ASCIZ 
WRTMSG: .ASCIZ 
WRTERR: .ASCIZ 
RDERR ASCIZ 
SCHERR: .ASCIZ 
RETERR: .ASCIZ 
NOMEM: .ASCIZ 
M8186 ASCIZ 
M8189 ASCIZ 
VEN 
SBTTL 


M3 


SEQ 038 


-ASCII /sNSA/ 

7 NO INTERRUPT WAS GENERATED/ 

4 INTERRUPT FAULT/ 

/#A CPU PC: SO6SA TSBA: #06/ 

4 “BUS-INIT” DOIDN’' T INITIALIZE CONTROLLER/ 
4 “SOFT-INIT” OION'T INITIALIZE THE DPU/ 

4 “BUS-RESET” DION’ T INITIALIZE THE OPU/ 


4/ 

/8N/ 

/A EXP’'D: SO68A, REC'D: #06/ 
/ONGA EXP'D: A, REC'D: 


SO6SNBA SOSA, 806/ 
/#A REG(W) WRITTEN TO: S06S8A REG(R) READ; EXP’D: s06SA, REC'D: 


-ASCIZ ‘RAM Contents Do Not Match Packet Serr’ 

7 CONFIG DOESN’ T MATCH MFG. MASTER/ 

‘WRITE CHARACTERISTICS Failed’ 

‘TSSR Incorrect After WRITE Command, Beeeny Bits Set Than SSR’ 
‘TSSR Incorrect After READ Command, re Bits Set Than SSR° 
‘FATAL ERROR IN SUBTEST - CHECK TAPE MeASLES. TRANSPORT etc. 
‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 

‘SgNSA see¢4 NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. seeeenN’ 
‘GNBA seseeeseesereeeese 11/23A SYSTEM saeeeeeeeeeseseeesgn’ 
‘GNA seecesesecenseees 11/238 SYSTEM saseseseeceesescesmNn’ 


GLOBAL ERROR REPORT SECTION 


i+ 
; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 


; CALLS THAT ARE USED IN MORE 


THAN ONE TEST 


; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


H -—- 
_BGNMSG 
* PRINTX 
MOV 


NXRERR : 


L10002: 


NXRERR 


ONXRX , NODEV 
NODEV, -( SP) 
@NXRX, -CSP) 
#2, -(SP) 
SP,RO 
CS$PNTX 
#6,SP 
PC,EXTEND 


sNON-EXISTANT DEVICE REGISTER. 
sNODEV = NEXM ADDRESS. 


; PRINT EXTENSION IF REQUIRED. 


C$MSG 


; 
; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


i 
EXTEND: TST 
EXTA: 0 


1$; PRINTX 


(PC)+ 

18 ; O = NO EXTENSION, 

PC ,@EXTA ; APPEND EXTENSION TEXT. 
#NULCR ; PRINT A BLANK LINE 
@NULCR, -CSP) 


#1, -(SP) 


s06/ 


TSV3_- GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 
GLOBAL ERROR REPORT SECTION 

006012 010600 MOV 

006014 104415 TRAP 

006016 062706 000004 ADD 

673 006022 000207 RTS 


N3 


SEQ 039 


SP ,RO 
CSPNTX 
#4,SP 
PC 


TSV3 - GLOBAL AREAS 


PRITSSR 


012746 
012746 


B4 


MACRO M1115 06-FEB-64 17:14 SEQ 040 
- PRINT TSSR CONTENTS 


000054 


002632 
006606 


177777 


-SBTTL PRITSSR - PRINT TSSR CONTENTS 


; ROUTINE TO OISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
sTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
1BY A MESSAGE PRINTING ROUTINE 


5 
s INPUTS: 
‘ 
; 


R1 CONTENTS OF TSSR 


i 
sSUBORDINATE ROUTINES: 


PRITSSR: 


58: 


108: 


138; 
158%: 


CHKAMB CHECK FOR AMBIGUOUS CONTENTS 


SAVREG sSAVE GENERAL REGISTERS 
MOV R1,R4 sSAVE THE TSSR CONTENTS 
PRINTB @TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 


MOV R4,-(SP) 
MOV @TSSRFOR, -( SP) 
MOV @2,-(SP) 


MOV SP, 

TRAP CSPNTB 

ADD 6, SP 

MOV R4,RO sGET TSSR BACK FOR CHKAMB 
JSR PC. CHKAMB sARE CONTENTS AMBIGUOUS ? 
BcS I) sBRANCH IF NOT 


sSHOW CONTENTS ARE AMBIGUOUS 


MOV eRO 

TRAP CSPNTX 

ADD ye 

MOV R4 RS Yo ata ty OF TSSR 

BIC @HIADOR!FATERR! TERCLS.R sCLEAR ALL MULTIPLE BIT FIELDS 
BEQ 20% sNO sits ARE SET 

MOV @TMPBFR ,R2 sTEMPORARY ASCII BUFFER 
MOV eTSSRBIT,R1 iASCII EQUIVALENT OF BITS 
TST R53 sREMAINING BITS TO CONVERT 
BEQ 158 sBRANCH WHEN ALL ARE DONE 
cLCc sCLEAR CARRY FOR SHIFT 

ROL R3 sSHIFT NEXT BIT TO CARRY 
BCC 138 sBRANCH IF BIT NOT SET 

MOV CR1),RO sPOINTER TO BIT DEFINITION 
MOvB CRO)+,(R2)> sMOVE ASCIZ TO BUFFER 

BNE 11% sMOVE ALL BITS 

MOVB @',,-1€R2) sINSERT A COMMA TO TERMINATE 
TST (R1)» sPOINT TO NEXT DESCRIPTION 
BR 10% 1GET THE REMAINING BITS 
CLRB -(R2) sTERMINATE THE LINE 

PRINTX @TSSOEF, es sPRINT THE BIT DEFINITIONS 
MOV OTMPBFR, - (S 


MOV @TSSOEF, CSP) 


735 
736 


: Yissa™ a 


Ban conte Ree M1113 O06-FEB-84 17:14 


012746 
010600 
104415 
062 706 


010403 
042703 
016303 


000002 
000006 


177761 
0066 76 


0064 76 
000002 


000006 
177717 


007236 


006537 
000002 


000006 
176377 


006435 
000002 


000006 
002200 


208: 


258: 


308: 


EPRT2: 
EPRT1: 


TSSRFOR: 


TEXASC: 
TCOASC: 
TFCASC: 
TSSDEF ; 


AMBTSSR: 


-ASCIZ 


-EVEN 


C4 


#2, -(SP) 
SP ,RO 
CSPNTX 
06 ,SP 


R4,R3 
@rtCTERCLS,RS 
TCOCOD(RS),RS 
@TCOASC RS 


R3, -(SP) 
e@TCOASC, -(SP) 
SP) 


3 
@rCFATERR,RS 
253% 


R3 
R3 


R3 
TSFCOO(R3),R3S 
nS casi oR3 
@TFCASC, -(SP) 
-(SP ) 


06 
acta 


Os 
@TEXASC ,R4 
R4,-( SP) 
OTEXASC  -(SP) 
@2,-(SP) 


SEQ 041 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sOON'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


sCLEAR ALL BUT EXTENDED ADORESS 
s00N'T PRINT IF ZERU 
sPRINT THE EXTENDED ADORESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 


sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


‘ONDA eoeeeREPLACE M7196eeee0' 


-ASCIZ 


-ASCIZ 
-ASCIZ 
VASCIZ 
-ASCIZ 


‘@NBA TSSR = 806’ 
-ASCIZ ‘sNBA Extended Address Bits = 606’ 
‘aNSA Termination Class Code = sT' 
‘SNSA Fatal Termination Class Code = es!’ 
‘@NSA TSSR Bits Set: wT’ 
‘gNBA TSSR Contents Are Ambiguous’ 


PRY Essa OBR NPR ee CoNVERRG Mt1IS 06 -FEB-64 17:14 


763 006676 006716 006741 006767 TCOCOD: . D 
764 006716 116 157 162 18: .ASCIZ 
765 006741 124 145 162 28: -ASCIZ 
766 006767 124 141 160 8% sciz 
767 OO7011 106 165 156 438; -ASCIZ 
768 007031 122 145 143 5% -ASCIZ 
769 007113 122 145 143 6% -ASCIZ 
770 007162 125 156 162 7$ ~ASCIZ 
771 007206 106 141 164 838; -ASCIZ 
acy -EVEN 
774 007236 007246 007302 007313 TSFCOD: .WORD 
775 007246 111 156 164 1%: -ASCIZ 
776 007302 122 145 163 2s ASCIZ 
777 007313 102 165 163 3% ASCIZ 
778 007357 122 145 163 4$ ASCIZ 
779 EVEN 
780 SBTTL 
781 
782 
783 
784 
785 
786 } INPUT: 
787 : 
788 : RO 
789 : R3 
790 : R4 
791 3 
792 ; NOTE 
793 : 
794 
795 007370 PRIPKT; 
796 007370 SAVREG 
797 007374 010005 MOV 
798 007376 005737 003134 TST 
799 007402 001001 BNE 
800 007404 005003 CLR 
801 007406 010301 108: MOV 
802 007410 010400 MOV 
803 007412 006100 ROL 
804 007414 006101 ROL 
805 007416 PRINTB 
007416 010446 MOV 
007420 010146 MOV 
007422 012746 007554 MOV 
007426 012746 000003 MOV 
007432 010600 MOV 
007434 104414 TRAP 
007436 062706 000010 ADD 
806 007442 010300 158%: MOV 
807 007444 001404 BEQ 
808 007446 010401 MOV 
809 007450 004737 017316 JSR 
810 007454 010004 MOV 
811 007456 005001 20%: CLR 
Rl2 007460 012402 25%; MOV 


D4 


SEQ 042 


1%, 28,38,48,58,68,78,88 
Normal termination’ 

‘Termination Condition’ 

‘Tepe Stetus Alert’ 

"Function Reject’ 

‘Recoverable Error - Tape Position One Pecord Down’ 

‘Recovereble Error - Tape Was Not Moved’ 

'Unrecoverable Error’ 

‘Fatal Controller Error’ 


1$,2%,3%,48 

‘Internal Diagnostic Failure’ 

‘Reserved’ 

‘Bus Interface or Sanity Cneck Error’ 

‘Reserved’ 

PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


; THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
— ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


:SAVE THE REGISTERS 


RO,RS sSAVE NO. OF WORDS » PACKET 

K TENABLE | ABOVE 28K UNDER TEST? 

108% 36R IF YES 

R3 3SET HIGH ORDER ADDRESS TO 0 

R3,R1 sCOPY HIGH ORDER ADDRESS 

R4,RO 3GET LOWER ADDRESS 

RO sSHIFT BIT 15 INTO C BIT 

R1 sAND INTO HIGH ORDER. 
@PKTADD,R1,R4 sPRINT PACKET ADDRESS 

R4, -(SP) 

R1, -(SP) 

OPKTADD, -( SP) 

@3,-CSP) 

SP ,RO 

CsPNTB 

210,SP 

R3,RO 3GET HIGH ORDER ADDRESS 

20% ;68R IF NOT ABOVE 28k. 

R4,R1 sGET LOW ORDER ADDRESS 

PC ,SETMAP sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 

RO,R4 ;GET RETURNED PAR6 ADDRESS BIAS 
1 sSAVE WORD NUMBER 


R 
(R4)+,R2 sGET PACKET CONTENTS 


TSV3 - GLOBAL AREAS 


PRIPKT 
813 


007462 
007462 


010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 


045 
045 


MACRO M1113 


007516 
000003 


000010 


116 
116 


177400 


007674 
000004 


116 


06 -FEB-84 17:1 
- PRINT THE ADDRESS/CONTENTS OF COMMAND 


045 PKTFRM: 
045 PKTADD: 


3° 


PACKET 
PRINTB 


-ASCIZ 
-ASCIZ 
-EVEN 
. SBTTL 


E4 


SEQ 043 


aS sPRINT THE DATA 


@3,-(SP)_ 


sNEXT WORD NUMBER 

sD0NE ALL PACKET WORDS? 
sLOOP TILL ALL DONE 

sRE TURN 


'SNSA Packet Word @sD1SA = SC6' 
‘SNSA Packet Address = 601805’ 


PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


; 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


i 
; INPUTS: 


+ 
sOUTPUT: 


R1 
R2 


RO 


PRIBXOR: : 


RECEIVED 
EXPECTED 


DATA 
DATA 


XOR OF EXPECTEO/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 sEXPECTED DATA 

R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO sBYTE MASK 

RO,R1 sSAVE LOW BYTE RECV 
RO,R2 sSAVE LOW BYTE EXxPD 
RO,R3 sSAVE LOW BYTE XOR 
@XORBFOR, R2,R1, RS sPRINT THE MESSAGE 
R3,-(SP) 

Rl. -(SP) 

R2, -(S ) 

@XORBF OR, -( SP) 

04, -(SP 

SP,RO 

CsPNTB 

#12,SP 

R3,RO 3RO HAS XOR ON RETURN 
PC sRETURN TO CALLER 
-ASCIZ ‘NSA EXPD: SO3SA RECV: SO38A XOR: S03 


PRIXOR 


- PRINT EXPD, RECV AND XOR 


TSV3_- GLOBAL AREAS 


PRIXOR 


- PRINT EXPD, RECV AND XOR 


010010 000207 
010012 045 
010060 
010060 


010064 000207 


MACRO M1113 06-FEB-84 17:14 


010012 
000004 
000012 


116 


045 


3° 


F4 


SEQ 044 


a 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


; 
s INPUTS: 


3 Ri 
3 Re 


3 RO 


XORFOR: .ASCIZ 
-EVEN 


3° 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 
R2,R3 sEXPECTED DATA 
R1,R3 sFORM THE EXCLUSIVE OR 
@XORFOR,R2,R1,R3 ;PRINT THE MESSAGE 
R3,-C(SP) 
R1,-CSP) 


R3,RO sRO HAS XOR ON RETURN 
PC sRETURN TO CALLER 


‘SNSA EXPD: SO68A RECV: SO68A XOR: #06’ 
PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


a 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


3 
; INPUTS: 


3 

3 RO 
8 R1 
. 
o 


PRIEQU: 
SAVREG 
RTS 


. SBTTL 
3° 


OCTAL VALUE TO CONVERT 
TABLE OF POINTERS TO ASCII EQUIVALENT 


sSAVE THE REGISTERS 
PC sRETURN TO CALLER 


PRIRAM - PRINT RAM ADDRESS 


é 
sPRINT CONTROLLER RAM ADDRESS, 


TSv3 
PRIRAM 


904 
905 


010114 
010116 


- GLOBAL AREAS 


010446 
012746 
012746 
010600 
104414 
062706 
000207 


045 


013700 
013701 
010102 
006101 
006100 


010246 


MACRO M1113 06-FEB-84 17:14 
- PRINT RAM ADDRESS 


010116 
000002 


000006 


116 


002236 
002240 
010230 
000003 


000010 


116 


045 


045 


G4 


SEQ 045 


sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


3 

; INPUTS: 

3 

; R4 
: 


:- 
PRIRAM: 


RAMFOR: .ASCIZ 
-EVEN 


. SBTTL 
3¢ 


RAM ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
sPRINT RAM ADDRESS IN ERROR 


3RETURN 


‘NSA CONTROLLER RAM ADDRESS = #06’ 


PRIADD 


;PRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; 
3 
3 ERRHI 
3 ERRLO 
3 

3° 

PRIADO: 


PRIAO: .ASCIZ 


EVEN 


. SBTTL 
3* 


 PRITADD 


IMPLICIT INPUTS 


- PRINT MEMORY ERROR ADURESS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


ERRHI,RO 
ERRLO,R1 
R1,R2 

R1 

RO 
PPRLAC,RO,R2 
R2,-(SP) 


sSAVE R1-RS UNTIL NEXT RETURN 
sGET HIGH ADDRESSS 

sGET LOW ADDRESS 

sCOPY LOW ADDRESS 

sSHIFT BIT 15 TOC BIT 

sSHIFT INTO HIGH ORDER 

sPRINT MEMORY ADDRESS IN ERROR 


sRETURN 


‘siNSA MEMORY ERROR ADDRESS = #01805' 


: 
sPRINT MEMORY ADDRESS 


- PRINT MEMORY TEST ADDRESS 


013702 
013701 


eGR Abas 06 -FEB-84 17:14 


sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


002236 
002240 


045 
045 


H4 


SEQ 046 


; IMPLICIT INPUTS 
‘ 
; ERRHI - HIGH ORDER ADDRESS 
F ERRLO - LOW-ORDER ADDRESS 
; 
:- 
PRITADD: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV ERRHI ,R2 ;GET HIGH ADDRESSS 
MOV ERRLO,R1 ;GET LOW ADDRESS 
3MOV R1,R2 sCOPY LOW ADDRESS 
:ROL R1 sSHIFT BIT 15 TOC BIT 
ROL RO ;SHIFT INTO HIGH ORDER 
PRINTS OPRITO,R1 sPRINT MEMORY ADDRESS LOW IN ERROR 
MOV R1,-CSP 
MOV OPRITO, -( SP) 
MOV @2,-(SP) 
MOV »RO 
TRAP CSPNTB 
00 #6, SP 
PRINTB @PRIT1,R2 sPRINT MEMORY ADDRESS HIGH IN ERROR 
MOV R2,-(SP) 
MOV OPRIT1,-(SP) 
MOV SP ,RO 
TRAP CSPNTB = 
ADD 06,SP 
RTS PC ;RE TURN 


PRITO: .ASCTZ 
PRIT1: — 


3° 


‘SNSA MEMORY TEST ADDRESS LOW = 806° 
‘SNSA MEMORY TEST ADDRESS HIGH = #06’ 


SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


; 
sROUTINE TO ISSUE A SPACE RECORDS 
sCOMMAND (FORWARD OR REVERSE ) 


3 
; INPUT: 
R3 


RS 


OUTPUT: 
CARRY 


= © ©: G+ @s Ge Se ee Gs Gr G+ Ge os oe oe 


NUMBER OF RECORDS TO BE SPACED OVER 
BIT1S CONTROLS DIRECTION 

BIT1S = O IS FORWARD 

BIT15 = 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


TSV3_- GLOBAL 


SPACE 
993 


012737 


MACRO M1113 


000764 
140010 
0108652 
100000 
010652 
000400 
010650 
000000 
016250 


000250 
002116 
177772 
177756 
010660 


000002 
000200 


010660 
010650 


010650 


14 


AL AREA 96 -FEB-84 17:14 SEQ 047 
- SPACE RECCRDS (FORWARD AND REVERSE) COMMAND 


; RO THE CONTENTS OF R4 IS MOVED TO RO 


; 

s IMPLICIT OUTPUT: 

i 

: TAPE HAS BEEN MOVED 


; 
sSIDE EFFECTS: 


SPACE 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV #500. , SDELAY sSET UP DELAY 
MOV #140010, 80$ sSET UP COMMAND, SPACE FORWARD 
TST R3 sCHECK FOR DIRECTION 
BMI S$ ;BR, IF REVERSE INDICATED 
MOV R3,908 sLOAD UP NUMBER OF RECORDS TO SPACE 
BR 10$ :GO 00 COMMAND 
S$: BIC oBIT15,R35 sCLEAR DIRECTION BIT 
MOV R3,908 sLOAD UP NUMBER OF RECORDS TO SPACE 
BIS oBrTe, 80s sSET REVERSE BIT IN COMMAND PACKET 
10$;: MOV @30$ ,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R4, TSOBCRS > sSENO OUT COMMAND 
158: JSR PC ,WAITF sWAIT FOR SSR 
BCS 20% ;BR, IF SSR IS SET AND OK 
DELAY 250 s;DELAY ABOUT .25 SECONDS 
MOV @250,(PC)-> 
-WORD O 
MOV LSDOLY,(PC)+ 
-WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
DEC SDELAY sBUMP DELAY Conran DOWN 
BNE 15% :BR, IF MORE DELA 
BR 60$ ;BR IF TROUBLE CARRY = CLEAR 
208: MOV TSSRCRS),R1 sREAD TSSR 
MOV @SSR Re sSET UP EXPECTED 
25%: CMP R2,R1 sARE THEY OK 
BEQ 40% 3;BR, IF EQUAL = OK 
BR 60% ; TROUBLE EXIT 
40%: SEC ;SET CARRY NO TROUBLE 
BR 70$ sEXIT 
= CLC ;CARRY CLEAR = ERROR 
MOV R4 ,RO sPASS PACKET ADDRESS 


RTS PC sRE TURN 


J4 


TSY3 - GLOBAL AREAS MACRO M1113 06-FER-84 17:14 SEQ 048 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1036 3 
1037 3 
1038 3 
1039 s;PACKET FOR SPACE COMMAND 
1040 ; ; 
1042 010650 ec , 610>€177770 
1044 
1045 ;COMMAND WORD 
1046 010€50 000000 80$: . WORD 
1047 pNUGER OF RECORDS TO BE SPACED OVER WORD 
1048 010652 000000 90$ . WORD 
1049 010654 0000V0 WORD 
1050 010656 000000 . WORD 
1031 010660 000000 SDELAY: - WORD 9) s;DELAY COUNTER 
.EV 
1035 .SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 
10 
i055 3° 
1056 3 
1057 sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
1036 COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 
1059 3 
1060 ; INPUT: 
1061 3 
1062 3 R4 ADDRESS OF PACKET FROM TEST 
1063 ; RS FIRST DEVICE UNI8US ADDRESS 
ned ; REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
; 
1066 ;OUTPUT: 
1067 ; 
1068 ; RO TSSR CONTENTS 
1069 3 CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
oh ; CLR - WRITE CHARACTERISTICS FAILED 
: 
1078 ; IMPLICIT OUTPUT: 
1074 ; MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
1075 ; SOFTWARE SWITCHES SET AS FOLLOWS: 
1076 ; EXTFEA = EXTENDED FEATURES PRESENT 
th : BENSBSW = BUFFER ENABLE SWITCH ON OR OFF 
3 
1079 , 
1080 SIDE EFFECTS: 
1081 ; 
1082 ; 
1083 - 
1084 
1085 010662 WRICHR: : 
1086 010662 SAVREG :SAVE THE GENERAL REGISTERS 
1087 010666 005037 002230 CLR BENBSW ;CLEAR BUFFER ENABLE SWITCH 
1088 010672 005037 002226 CLR EXTFEA :CLEAR EXTENDED FEATURES SW SWITCH 
1089 010676 010465 000000 10$: MOV R4,TSOBC(RS) ;SEND OUT COMMAND 
1090 010702 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR 
1091 010706 103401 BCS 20% ;8R, IF SSR IS SET AND OK 
1092 010710 000435 BR 60$ ;BR IF TROUBLE CARRY = CLEAR 
1093 010712 016501 000002 208: MOV TSSRCRS),R1 ;READ TSSR 


1094 010716 012702 000200 MOV #SSR,R2 ;SET UP EXPECTED 


TSV3 - GLOBAL AREAS 


WRTCHR - WRITE 


1095 010722 
1096 010726 
1097 010730 
1098 010734 
1099 010736 
1100 010740 
1101 010742 
1102 010746 
1103 010750 
1104 010756 
1105 010760 
1106 010764 
1107 010764 
1108 010772 
1109 010774 
1210 011000 
1111 011000 
1112 011002 
1113 011004 
1114 011006 
1115 011012 


1143 

1144 011014 
1145 011014 
1146 011020 
1147 011024 
1148 011030 
1149 011034 
1150 011040 
1151 011042 


CHARAL 


001402 
005237 


012704 
010465 
012703 
004737 
103417 


MACRO M1113 


TERISTICS COMMAND 


000100 
000100 


000010 
000200 
002226 
000100 
002230 


000002 


011110 
000000 


000550 
016250 


000012 


000012 


25%: 


40$: 


45$: 


50$: 


3¢ 


06 -FEB-84 17:14 


. SBTTL 


K4 


R3 
x2, EXIF, XST2CR3) 
EXTFEA 
@X2.BUFE ,xST2(R3) 
50$ 


BENBSW 


70$ 
_— »RO 


SEQ 049 


sWAS OFF LINE SET IN TSSR 


;BR, IF NO OFL SET 
sMAKE THEM LOOK ALIKE 
sARE THEY OK 

;BR, IF EQUAL = OK 

; TROUBLE EXIT 


sPOINT TO WRT CHARA DATA PACKET 
;GET ADDRESS OF MESSAGE BUFFER 
sEXTENDED FEATURES Bil SET? 


;B8R IF NO 


3SET EXTENDED FEATURES SW SWITCH 


36R, IF SWITCH NOT SET 


sBUFFER ENABLE SWITCH SET 


sSET SOFTWARE SWITCH FOR ENABLED 


;SET CARRY NO TROUBLE 
3;ExIT 

sCARRY CLEAR = ERROR 
Nerves TSSR CONTENTS 


RE TURN 
REWIND - POSITION TAPE €REWINO) COMMAND 


3 
: THIS ROUTINE WILL REWIND THE SELECTED TAPE. 


CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 


INPUT: 


OUTPUT 


10$: 


EWIND: : 


SSR TO SET IN THE TSSR 


CALLING SEQUENCE : 


DO A SOFT INIT 
DO A WRITE tnt at 


JSR 


RS 


RO 


PC ,REWIND 


FIRST DEVICE UNIBUS ADDRESS 


THE CONTENTS OF R4 IS PASSED TO RO 


@RWPACK ,R4 
R4, TSDB( WS) 
#360. ,R3 
PC ,WALTF 
20% 

250. 


sSAVE R1-RS UNTIL NEXT 
sGET PACKET ADDRESS 


RETURN 


sSEND PACKET ADDRESS TO EXECUTE 


sENOUGH TIME FOR 2400° 
sWAIT FOR SSR TO SET 

;LEAVE WHEN SSR IS SET 
sWAIT FOR .25 SECONDS 


REEL TO REWIND 


3 - GLOBAL AREAS MACRO M1113 -FEB-84 17:14 SEQ 050 
IND - POSITION TAPE ( WINDS koenkio 
011042 012727 000372 MOV #250. ,(PC)+ 
011046 000000 .WORD 0 
011050 013727 002116 MOV LSOLY,(PC)-+ 
011054 000000 .WORD O 
011056 005367 177772 DEC -6(PC) 
011062 001375 BNE .-4 
011064 005367 177756 DEC -22(PC) 
011070 001367 BNE .-20 
1152 011072 005303 DEC RR ;BUMP COUNTER DOWN 
1153 011074 001357 BNE 10$ 3KEEP GOING 
1154 011076 000241 CLE ;CLEAR CARRY TO SET ERROR 
1155 011100 010400 208: MOV R4,RO ;PASS THE PACKET ADDRESS 
ft 011102 000207 RTS PC ;RETURN 
1 
1159 011110 .*¢,¢10>€177770 
1161 011110 RWPACK ; 
1162 011110 102010 .WORD 102010 s;POSTION COMMAND (REWIND) 
1163 011112 000000 .WORD O ;NOT USED 
tre .SBTTL CKRAM - COMPARE RAM TO I/O PACKET 
li 
1166 3° 
1167 3 
1168 s;ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
tes ;MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 
1171 ; INPUT: 
1172 ; 
1173 3 R4 ADDRESS OF THE COMMAND PACKET 
ee ; RS FIRST DEVICE UNIBUS ADDRESS 
; 
1176 ;OUTPUT: 
1177 3 
1178 ; CARRY SET - RAM MATCHES PACKET 
as ; CLR - RAM DOES NOT MATCH PACKET 
7 
we ; IMPLICIT OUTPUT: 
1183 3 THE TABLE RAMDATA IS FILLED WITH THE 
1184 ; DATA HELD IN RAM, 
1185 3 RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
; 
art ;SIDE EFFECTS: 
> 
tte : THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
a 
1191 ro 
1192 
1193 011114 CKRAM: : 
1194 011114 SAVREG ;SAVE THE GENERAL REGISTERS 
1195 011120 012701 002242 MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
1196 011124 012702 000201 MOV ORMPKTBEG ,R2 s;BYTE ADDRESS OF FIRST RAM DATA 
1197 011130 005003 CLR RZ ;CLEAR THE ERROR FLAG 
1198 011132 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR 
1199 011136 112765 000000 000000 MOVB #0, TSDB(RS) 3SET MAINTENANCE MODE 
1200 011144 004737 016336 10$: JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 
1201 011150 010265 000000 MOV R2, TSOB(RS) ;SFLECT NEXT RAM ADDRESS 
1202 011154 004737 016336 JSR PC,CHKTSSR s;WAIT FOR SSR TO SET 


L4 


M4 


Ein” ERGheAREan roASB°PREREF 06-FED-08 17:14 


011222 


011224 
011224 
011230 
011234 
011240 
011242 
011246 
011254 
011260 
011264 
011270 
011274 
011276 
011300 
011302 


116511 
122124 
001401 
005203 


012701 
012702 
005003 


004737 
112765 
004737 
010265 
004737 
116511 
122124 
001401 
005203 
005202 


000000 


000210 


000010 002302 


002242 
000167 


016336 
000000 
016336 
000000 
016336 
000000 


MOVB TSBACRS),CR1) 
CMPB CR1)+,CR4)> 
BEQ 20% 
INC R3 
20$: INC R2 
CMP R2, ORMPK TEND 
BLE $ 
TST R3 
BEQ 30$ 
CLC 
BR S0$ 
30$: SEC 
50$: ore #8. ,RAMSIZ 


RTS PC 
-SBTTL CKRAM2 
3*¢ 


a 
sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM R 


SEQ 051 


sREAD THE RAM DATA 
sCOMPARE TO EXPECTED 
sBRANCH IF OK 

3SET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 
sREACHED END YET ? 

;BRANCH TILL ALL READ 

3WAS AN ERROR FOUND ? 
;BRANCH IF NOT 

;CLEAR CARRY TO SHOW ERROR 
sAND EXIT 


;SHOW GOOD COMPARE 
;SETUP RAMSIZ FOR PRAMPKT ROUTINE 


sRETURN 
- COMPARE RAM To’ I/0 CHARACTERISTICS DATA 


sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


} INPUT: 

a 

3 R4 ADDRESS OF THE CHARACTERISTICS DATA 
3 RS FIRST DEVICE UNIBUS ADDRESS 

Hy 

;OUTPUT: 

3 

3 CARRY SET - RAM MATCHES PACKET 

3 CLR - RAM DOES NOT MATCH PACKET 


; 
s IMPLICIT OUTPUT: 
5 


THE TABLE RAMDATA IS FILLED WITH THE 


DATA HELD IN RAM, 


RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


: 
: 
; 
‘SIDE EFFECTS: 
; 
: 
o 
ha 


CKRAM2: : 
SAVREG 
Vv @RAMDATA,R1L 
MOV @RMCHBEG , R2 
CLR R3 
JSR PC,CHKTSSR 
MOVB #0, TSOBCRS) 
10$: JSR PC,CHKTSSR 
MOV Re, TSOBCRS) 
JSR PC,CHKTSSR 
MOVB TSBACRS),C(R1) 
CMPB CR1)+,CR4)+ 
BEQ 20$ 
INC R3 
205: INC Re 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
s;BYTE ADORESS OF FIRST RAM DATA 
;CLEAR THE ERROR FLAG 

;WAIT FOR SSR 

3SET MAINTENANCE MODE 

sWAIT FOR SSR TO SET 

;SELECT NEXT RAM ADDRESS 
:WAIT FOR SSR TO SET 

;sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

;BRANCH IF OK 

;SET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 


isys . Joes ORAL ARE AREA 


012737 


000010 002302 
002226 


000012 002302 
000200 


000176 


25%: 
27s: 


30$: 
50$: 


3s¢ 


;ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 


AM TO 170 CHARAC TERTST Fes°5 Data: - 


. SBTTL 


N4 


#8. ,RAMSIZ 
EXTFEA 

25% 

#10. ,RAMSIZ 
R2, ORMCHEND 


PC 
CKMSG 


sERROR PRINT ROUTINES. 


10$: 


15$: 


258: 


CARRY 


SEQ 052 


sASSUME EXTFEA NOT SET 


sIS THE aT ter EXTENDED FEATURES SET 


:BR, IF NOT 


sSET RAMSIZ FOR EXTEND FEATURES 
sAT END OF EXTENDED BUFFER 
sBR, IF NOT AT END YET 


sAT END BRANCH 


sREACHED END YET ? 
sBRANCH TILL ALL READ 


;CLEAR CARRY TO SHOW ERROR 


sANO EXIT 


J oe oy GOOD COMPARE 
; 
- COMPARE WRITE CHAR. MESSAGE BUFFERS 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 


SET - MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON'T MATCH 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 


SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADORESS OF RECV 


EXPMSG 

RECMSG 

RCVHIADD 

RCVLOADD 

SAVREG 

MOV RO, RCVHIADD 

MOV R1,.RCVLOAD 

TST K TENABLE 

BEQ 10$ 

JSR PC, SETMAP 

MOV RO,R1 

CLR R4 

CLR R3 

MOV R2,R5 

MOV (R2), EXPMSG(R4) 
MOV (R1), RECMSG(R4 ) 
CMP (R2)+,(R1)> 

BEQ 25% 

INC R3 

ADC @2,R4 


;SAVE R1-RS UNTIL NEXT RETURN 
sSAVE RECV HIGH ADDRESS 
sSAVE RECV LOW ADDRESS 
s TESTING ABOVE 28K? 

BR IF NO 


;RE TURN ADDRESS BIASED TO PAR6 IN RO 
sGET RETURNED ADDRESS BIASED TO PARE 
sWORD IN BUFFER 

s;CLEAR ERROR SEEN FLAG 
sGET EXPD BUFFER ADDRESS 

i SAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 
sEXPD EQUAL RECV? 
BR IF YES 

;SET ERROR SEEN FLAG 
sPOINT TO NEXT WORD ADDRESS 





ee wont ee 


v3 _- GLOBAL AREAS 
KMSG 


1317 011440 
1318 011444 
1319 011446 
1320 011454 
1321 011456 
1322 011462 
1323 011464 
1324 011466 
1325 011470 
1326 011472 
1327 011474 
1328 011476 


1367 011560 
1368 011562 


020427 
003 


012703 


012746 
012746 


MACRO M11 
- COMPARE WRITE CHAR. MES 


000014 


764 
032765 000200 000012 


000144 
000144 


011632 
000001 


017316 


-FEB-84 17:14 SEQ 053 


UFFERS 


CMP ot a 100NE FIRST 7 WORDS? 
b 
BIT @X2.EXTF,XST2(R5);IS EXTENDED FEATURES SET IN EXxPD? 
50% s6R IF 


CMP R4,016 sOONE EXTENDED FEATURES WORD? 
BLE 158 s8R IF NO 

508: TST R3 sANY ERRORS SEEN? 
BEQ 558 


s68R IF NO 
CLC 3SET FAILURE 
' 
558: SEC sSET SUCCESS 


608; RTS PC sRE TURN 
-SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
3° 


3 

sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 

3s INPUT: 

3 

3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 

3 R1 RECV MESSAGE BUFFER LOW ORDER ADORESS 

3 R2 EXPD MESSAGE BUFFER ADDRESS 

3 R3 NUMBER OF BYTES TO COMPARE 

3 

sOUTPUT: 

3 CARRY SET - MESSAGE BUFFERS MATCH 

3 CLR - MESSAGE BUFFERS DON'T MATCH 

3 

sIMPLICIT OUTPUT: 

: EXPMSG BUFFER IS SET TO EXPD DATA 

3 RECMSG BUFFER IS SET TO RECV DATA 

3 RCVHIADD SET TO HIGH ORDER ADORESS OF RECV 

3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 

3 

A 

CK 23 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
CMP R3, ORECMSG - EXPMSG; 880 IS COUNT ABOVE MAX ALLOWED? 
BLE 53 3880 BR IF NO 


@RECMSG - ZEAPMSS.R3 1880 


58; MOV RO, RCVHIADD sSAVE RECV HIGH ADORESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADORESS 
TsT Ki ENABLE sTESTING ABOVE 28K? 
BEQ 10% s68R IF NO 
JSP PC, SETMAP sRETURN ADORESS BIASED TO PAR6 IN RO 
MOV RO,R1 sGET RETURNED ADDRESS BIASED TO PARG 
108; CLR R4 sWORD IN BUFFER 


RMSc2 CCORGHPARE*E xen AEG’ AeUBALE eOPrERE 24 17:14 


1369 
1370 
1371 
1372 
1373 


011632 
011722 
011733 
011766 
012021 


012034 
012034 
012034 
012040 
012044 
012044 
012044 


111264 002322 
111164 002466 


00520 
062704 000001 


004737 006024 
004737 017202 


104425 


158: MOVB 


SEQ 054 

RS sCLEAR ERROR SEEN FLAG 
(R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
(R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
(R2)+,(R1)> sEXPD EQUAL RECV? 
25% s8R IF YES 
RS sSET ERROR SEEN FLAG 
@1,R4 sPOINT TO NEXT BYTE 
R4,R3 sOONE ALL BYTES? 
508 s6R IF YES 
153 100 NEXT BYTE 
RS sANY ERRORS SEEN? 
55% s6R IF NO 

sSET FAILURE 
60% 


a 
sSET SUCCESS 
PC sRETURN 


as" ew INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;8a0 
bee 

4 TSSR ERROR CODE REC'D = / 

4.... AFTER DOING SOFT INIT/ 

FVESTS ccc 


3 
sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 


° 

3; INPUT: 

3 

3 R1 CONTENTS OF TSSR AT ERROR 

3 

3SIDE EFFECTS: 

3 

3 EXECUTES DROP UNIT TO CEASE TESTING 

o 

ie 
BGNMSG SFIMSG 

SFIMSG:: 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ,.CKDROP sOROP UNIT, IF ALLOWED 
ENDMSG 

L10003: 
TRAP C8MSG 


3° 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


3 
; INPUTS: 


3 

: Ri 
: R4 
i 
: 


TSSR CONTENTS 
ADDRESS OF COMMAND PACKET 


TSVS_ - GLOBAL AREAS 


CKMSG2 
1423 


MACRO M1113 06-FEB-84 17:14 SEQ O55 


- COMPARE EXPD RECV MESSAGE BUFFERS 


012102 
012102 
012102 
012106 


012106 


012106 


004737 006024 
012700 000004 
004737 007370 


104423 


004737 006024 
012700 000002 
004737 007370 


104423 


004737 006024 


104423 


BGNMSG PKTSSR 


PKTSSR:: 
JSR PC.PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV 4 ,RO sNO. OF WORDS IN PACKET 
JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACVET 
ENOMSG 

L10004; 


TRAP C$mMSG 


iad 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A GET STATUS COMMAND PACKET, 


3 
s INPUTS: 
3 
; R1 TSSR CONTENTS 
3 R4 ADDRESS OF COMMAND PACKET 
3 
: - 
PKTGETS 
PKTGETS 
PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV @2,R0 3NO. OF WORDS IN GET STATUS PACKET 
JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 
10005: 


TRAP CsmsC 


3° 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


3 

s INPUTS: 

: R1 TSSR CONTENTS 

3 R4 ADDRESS OF COMMAND PACKET 

3 - 
BGNMSG SFFMSG 

SFFMSG:: 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
ENOMSG 

L10006: 


TRAP C$MSG 


-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
3° 


‘ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
sBUFFER FOR ERROR REPORTS 


3 
s INPUTS: 


; 
; R1 CONTENTS OF TSSR 

: Re LOW ORDER MESSAGE BUFFER 

; R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

‘ NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 


TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 SEQ 056 
PKTMES - PRINT TSSR AND MESSAGE BUFFER 
1471 e- 
1472 012110 BGNMSG PKTMES 
912110 PKTMES:: 
1473 012110 004737 006024 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
1474 012114 010200 MOV R2,RO 3LOW ORDER ADDRESS 
1475 012116 010301 MOV R3,R1 sHIGH ORDER ADDRESS 
1476 012120 004737 014242 JSR PC,PRMESS s;PRINT THE MESSAGE BUFFER 
1477 012124 ENOMSG 
012124 L10007: 
012124 104423 TRAP C$MSG 
1478 .SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 
1479 ; 3° 
1480 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
oot 3TSSR AND A MEMORY TEST ADDRESS 
1 3 
1483 s INPUTS: 
1484 3 
1485 3 RS FIRST DEVICE UNIBUS ADDRESS 
1486 ; ERRHI HIGH ORDER MEMORY TEST ADDRESS 
1487 ; ERRLO LOW ORDER MEMORY TEST ADDRESS 
1488 8° 
1489 
1490 012126 BGNMSG ADODSSR 
012126 ADOSSR: : 
1491 012126 004737 010274 JSR PC ,PRITADD ;PRINT MEMORY TEST ADORESS 
1492 012132 016501 000002 MOV TSSRCRS),R1 3;GET CURRENT TSSR 
1493 012136 004737 006024 JSR PC,.PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
1494 012142 ENOMSG 
012142 L10010: 
me 012142 104423 TRAP C$MSG 
oor .SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
3° 
1498 ; 
pose s;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
H 
coos ; IMPLICIT INPUTS: 
; 
1503 3 EXPMSG - EXPECTED MESSAGE BUFFER 
1504 ; RECMSG - RECEIVED MESSAGE BUFFER 
1505 : RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
foot ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
& 
1508 012144 ®BGNMSG MSGEXP 
012144 MSGE XP: : 
1509 012144 012700 000007 “Ov @7,RO sASSUME NO EXT FEATURES 
1510 012150 005737 002226 TST EXTFEA sEXT FEATURES SET? 
1511 012154 001402 BEQ S$ ;8R IF NO 
1512 012156 012700 000010 MOV #8. ,RO sEXT FEATURE BUFFER IS 8 WORDS 
1513 012162 004737 014552 S$: JSR PC, PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 
1514 012166 ENOMSG 
012166 L1OO11: 
012166 104423 TRAP C$MSG 
ai -SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
3? 
1517 


2 
1518 sPRINT ROUTINE TO PRINT FIFC EXP/RECV DATA 


TSv3 
FIFEXP 


1554 
1555 


- GLOBAL 


AREAS 


MACRO 


- PRINT FIFO EXP/RECV 


012170 
012170 


012242 
012311 


012400 


010146 


012701 
012100 
001410 


012242 
000002 


000006 
012311 
000001 
000004 
015122 


116 
116 


012412 


000012 


O Mi 
DAT 


FS 


1113 O6-FEB-84 17:14 


TA 

3 

3 R1 - BYTE COUNT 

3 

sIMPLICIT INPUTS: 

3 

3 EXPMSG 

3 RECMSG 

s* 
BGNMSG FIFEXP 

FIFEXP 
PRINTX @FIF1IMSG,R1 
MOV R1,-(SP) 
MOV oF IF AMSG, -CSP) 
MOV @2,-CSP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD 06 ,SP 
PRINTX @FIF2MSG 
MOV OF 1 QMSG, -( SP) 
MOV SP RO 
TRAP CSPNTX 
ADD 04,SP 
MOV R1,R0 
JSR PC ,PRBYTEXP 
ENOMSG 

L10012: 
TRAP C$MSG 

045 FIFIMSG: -ASCIZ 
045 FIFOMSG: -ASCIZ 

.EVEN 


3¢ 


yi 
sPRINT ROUTINE 
; 


; 
sIMPLICIT INPUTS: 


3 
8 EXPMSG - 
3 RECMSG - 
3 RCVHIADD - 
3 RCVLOADD - 
2 
BGNMSG MSGSTAT 
MSGSTAT:: 
MOV #STATCOD,R1 
108: MOV CR1)+,RO 
BEG 20$ 
PRINTX RO 
MOV RO, -( SP) 
MOV SP,RO 
TRAP CSPNTX 
ADD 04,SP 
BR 10$ 
203: MOV #10. ,RO 


SEQ 057 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


sPRINT BYTES TRANSFERRED 


sPRINT HEADER MSG 


sGET BYTE COUNT 
;PRINT FIFO BYTES IN ERROR 


‘SNA NUMBER OF BYTES TRANSFERRED = #02’ 
‘SNA FIFO DATA BYTES IN ERROR:' 


MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


TO PRINT MESSAGE BUFFER EXPD/RECV 


EXPECTED MESSAGE BUFFER 

RECEIVED MESSAGE BUFFER 

RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


sASCII ADDRESS TABLE 
sDONE ALL MSG LINES? 
;BR IF YES 

sPRINT STATUS BIT NAMES 


. 


300 ANOTHER MSG LINE 
sNUMBER OF WORDS IN A READ STATUS BUFFER 


TSV3_- GLOBAL A 
- PRINT Ret TUS HE 


MSGSTAT 


012404 
012410 
012410 
012410 


012412 
012430 


013124 
013124 


013126 
013146 
013221 
013320 
013417 
013516 
013615 
013714 


004737 


104423 
012430 


012701 


104423 


MACRO M 
EAGER RAB es 

014552 

012472 012563 
116 045 
116 045 
116 045 
116 045 
116 045 
116 045 

013126 

000001 

000004 

000012 

014552 

013221 013320 
116 045 
116 045 
116 045 
116 045 
116 045 
116 045 
116 045 


GS 


-FER- , 
EB Pe ead 14 SEQ 058 
JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10013: - 
TRAP C$mMSG 
STATCOD: . WORD 1$,2$,3%,4%,5%,6%,0 
1$:.ASCIZ ‘sNSA Tape Bus Si als in Word #6;' 
2$:.ASCIZ ‘ssNsA PARERR<15> IEOT <12> IFMK <9> IRDY<6> 
3$:.ASCIZ ‘ssNSA IRESV2<14> IIDENT<11> IHER <8> IONL<5> 
4$:.ASCIZ ‘NSA IRESV1<13> ICER <10> ISPEED<7> ILOP<4> 
S$:.ASCIZ ‘NSA Tape Bus Signals in Word 69:' 
aectrenens™ — OATMIS<7> ILW<6> OUTRDY<S> INRDY<4>' 
Vv 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
3¢ 


;PRINT ROUTINE TO PRINT MESSAGE SUFFER EXPD/RECV 

3 

;IMPLICIT INPUTS: 

; 

; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
: RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
° 

BGNMSG MSGLOOP 

“MOV @LOOPCOD,.R1 sASCII ADDRESS TABLE 


IRWD<2>' 
IFBY<1>° 
IFPT<Q>’ 


10$ MOV (R1)+,RO sDONE ALL MSG LINES? 
BEQ 20% 3BR IF YES 
PRINTX RO sPRINT STATUS BIT NAMES 
MOV RO, -(SP) 
MOV #1, -C(SP) 
MOV SP, 0 
TRAP CSPNTX 
ADD 04 ,SP 
BR 10% 300 ANOTHER MSG LINE 
20%: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC ,PRMSGE XP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
110014; 
TRAP C$MSG 
LOOPCOD: . WORD 1$,2$,3%,4%,5%,6%,78%,0 
1$:.ASCIZ ‘SNSA Tape Bus Loopback Signals in Word 08:' 


2$:.ASCIz ° 
$$: .ASCIZ ‘SNA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER 
5$:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITAD1=>IONL <O5> IERASE =>ILOP 
6$:.ASCIZ ‘sNwSA IREW =>IDBY<03> IRWU =>IRWD <O2> IFEN =>IFBY 
701 OSS on IGO =>IFPT<00>' 

EVEN 

.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
3? 


3 
sPRINT ROUTINE TO PRINT MESSACE BUFFER EXPD/RECV 


SNBA PARERR<15> TRESV2< 14> TRESV1<13>° 


<10>' 


SNSA IWFEM =>IFMK<O9> IEDIT=>IHER <08> IFAD =>ISPEED<07>' 


<04>' 
<OL>’ 


TSV3 - GLOBAL AREAS 


MSGSUB 


013742 
013742 
013742 
013746 
013752 
0137S2 
013752 


013754 
013754 
013754 
013760 
013764 
013770 
013774 
013774 
013774 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 


H5 


MACRO M1113 06-FEB-84 17:14 SEQ 059 


000012 
014552 


~ PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


‘ 
; 
s IMPLICIT INPUTS: 


; 

: EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 

- 
SGNMSG MSGSUB 

MSGSUB : 
MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC ,PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 

L10015 


TRAP CSMSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
. 


;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
;IMPLICIT INPUTS: 


3 

3 ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

3 ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

3 EXP - EXPECTED DATA 

3 RECV - RECEIVED DATA 

3° 
BGNMSG MEMADD 

MEMADD: : 
JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPD,R1 3;GET EXPD DATA 
MOV RECV,R2 ;GET RECEIVED DATA 
JSR PC, PRIXOR ;PRINT EXPD/PECV 
ENDMSG 

L10016: 


TRAP C$MSG 
-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
3? 


3 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
;WHEN THE RAM DATA DOES NOT MATCH. 


} INPUTS: 

: R4 POINTER TO COMMAND PACKET 

FIMPLICIT INPUTS: 

; RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 


IF RAMSIZ*O THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 


; 
: 
; 
; 
; 
; 
; RAMSIZ SET TO 0 


TSv3 
PRAMPKT 


013776 
013776 
014002 
014006 
014010 
014012 
014014 
014024 
014026 
014032 
014036 
014046 
014052 
014060 
014066 
014066 
014070 
014074 
014100 
014102 
014106 
014112 
014114 
014116 
014122 
014124 
014130 
014132 
014136 
014140 
014142 
014146 
014150 
014154 


014156 


014242 


- GLOBAL AREAS 
- PRINT RAM AND 


012701 
005002 
122124 
001005 


000436 
116105 
116403 


042703 
116137 
116437 


ae 


MACRO M1113 06-FEB-84 17:14 
PACKET DATA 


002242 


177777 
177777 


177400 


177777 
177777 


002232 
002234 


014156 
000005 


000014 
002302 
002302 


000010 
002302 


116 


002234 
002232 


045 


PRAMPKT : 
SAVREG 
MOV @RAMDATA,R1 
CLR R2 
S$: CMPB CR1)+,CR4)> 
BNE 
ae 7$,NOTSSR 
7%: MOVB -1€R1),R5 
MOVB -1(€R4),R3 
xOR RS,R3 
BIC 0177400, R3 
MOvB -1(R1),RECV 
MOVB -1€R4),EXPD 
PRINTB 


MOV @RAMASC, -( SP) 
MOV os, -¢ 
MOV SP ,RO 
TRAP CSPNTB 
ADD #14,SP 

10%: INC R2 
TST RAMSiIZ 
BEQ 15$ 
CMP R2,RAMSIZ 
BLE 5$ 
BR 25% 

15$ CMP R2,08 

20$ BLT $ 

25% CLR RAMSIZ 
RTS c 

RAMASC : my 


EN 
-SBTTL PRMESS 
3° 


é 
sTHIS ROUTINE PRINTS THE CONTENTS OF 


@RAMASC ,R2,RECV,EXPD,R3 
R SP) 


‘SNSA BYTE: SD28A RAM: 


SEQ 060 


sSAVE R1-R5S a Sees RE TURN 
sDATA FROM THE R 

sINIT BYTE NUMBER 

sCOMPARE EXPECTED, RECEIVED 
3B8R IF NO MATCH 


3380 

3GET RECV RAM DATA 
;GET EXPD PACKET DATA 
:XOR EXPD/RECV 

;LOW BYTE ONLY 

;GET RECEIVED RAM DATA 
3GET EXPECTED RAM DATA 


sUPDATE BYTE COUNT 
;DEFAULT TO 8.? 

;8R IF YES 

sDONE ALL BYTES? 
3;6R IF NO 


3 
;DONE DEFAULT NUMBER OF BYTES? 
;8R IF NO 

3SET DEFAULT RAMSIZ 

;RE TURN 


SO38A Packet: SO38A XOR:803: 


- PRINT CONTENTS OF MESSAGE BUFFER 


;THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 
3;TSv-0O5. 
3 
3; INPUT: 
RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 


PRMESS: 


NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


J5 


TSV3_- GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 SEQ 061 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


1702 014242 SAVREG sSAVE THE REGISTERS 


1703 014246 010005 MOV RO,RS sSAVE LOW ORDER ADDRESS 
1704 014250 005737 003134 TsT K TENABLE sADDRESS ABOVE 28K? 
1705 014254 001001 BNE 10$ :BR IF YES 
1706 014256 005001 CLR R1 sSET HIGH ORDER ADDRESS TO 0 
1707 014260 010103 ; 10%: MOV R1,R3 sSAVE HIGH ORDER ADDRESS 
1708 014262 006100 ROL RO sSHIFT BIT1S5 TO C BIT 
1709 014264 006101 ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
1710 014266 PRINTX @PROASC,R1,RS sPRINT MESSAGE BUFFER ADDRESS 
014266 010546 MOV RS, - ) 
014270 010146 MOV Ri, -CSP) 
014272 012746 014420 MOV @PROASC, -( SP) 
014276 012746 000003 MOV @3,-(SP) 
014302 010600 MOV SP.RO 
014304 104415 TRAP CSPNTX 
014306 062706 000010 ADD #10,SP 
1711 014312 PRINTX @PRIASC s;PRINT HEADER FOR CONTENTS 
014512 012746 014465 MOV @PRIASC, -( SP) 
014316 012746 000001 MOV #1,-(SP) 
014322 O1 SP, 
014324 104415 TRAP CSPNTX 
014326 062706 000004 ADD 04,SP 
1712 014332 005004 CLR Ra ;NUMBER OF THE NEXT WORD 
1713 014334 010501 MOV RS,R1 ;COPY LOW ORDER ADDRESS 
1714 014336 010300 MOV R3,RO sCOPY HIGH ORDER ADDRESS 
1715 014340 001403 BEQ 20% ;BR IF NOT ABOVE 28K 
1716 014342 004737 017316 JSR PC, SE TMAP ;SETUP PAR ADDRESS IN RO 
1717 014346 010005 MOV RO,RS ;GET PAR FORMAT ADDPESS ABOVE 28K 
1718 014350 208: PRINTX @PRASC, R4,(RS)> ;PRINT THE CONTENTS OF MEMORY BUFFER 
014350 012546 MOV C(R5S)-+, (SP) 
014352 010446 MOV R4,- ) 
014354 012746 014523 MOV @PRASC, -( SP) 
014360 012746 000003 MOV @3,-(SP) 
014364 010600 MOV P, 
014366 104415 TRAP CSPNTX 
014370 062706 000010 ADD #10,SP 
1719 014374 005204 INC R4 sNUMBER OF THE NEXT 
1720 014376 020427 000007 CMP R4,07 sDONE ALL YET ? 
1721 014402 003005 BGT 50$ ;BRANCH IF ALL DONE 
1722 014404 0027641 BLT 20% s;PRINT FIRST 7 WORDS 
1723 014406 032763 000200 000012 BIT OX2.EXTF, XST2(R3) EXTENDED FEATUTES ON ? 
1724 014414 001355 BNE 20s sPRINT EXTENDED STATUS WORD 
Bay 014416 000207 50$: RTS PC RETURN 
1727 014420 045 116 045 PROASC: .ASCIZ ‘sNBA Message Buffer Address += 801805’ 
1728 014465 045 116 045 PRIASC: .ASCIZ ‘sNBA Message Buffer Contents: ' 
ee 014523 045 116 045 PRASC: yin hy NSA WordsD1sA; #0’ 
-EVEN 
ha! -SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
3° 
1733 ; 
hs sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
H 
vee H RO - NUMBER OF WORDS IN BUFFER 
; 
1738 sIMPLICIT INPUTS: 


1739 ; 


KS 


TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 SEQ 062 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
1740 3 EXPMSG - EXPECTED MESSAGE BUFFER 
1741 : RECMSG - RECEIVED MESSAGE BUFFER 
1742 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
ph 3 RCVi.OADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1 44 Nea a 
1745 014552 PRMSGE XP: ; 
1746 014552 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1747 014556 010005 MOV RO,RS sSAVE NUMBER OF WORDS 
1748 014560 013700 002306 MOV RCVLOADD ,RO ;GET RECV LOW ADDRESS 
1749 014564 010004 MOV RO,R4 ;COPY LOW ADDRESS 
1750 014566 013701 002304 MOV RCVHIADD,R1 ;GET RECV HIGH ADDRESS 
1751 014572 006100 ROL RO ;SHIFT BIT15 TO C BIT 
1752 014574 006101 ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
1753 014576 PRINTX @PRMSGO,R1,R4 sPRINT MESSAGE BUFFER ADDRESS 
014576 010446 MOV R4,-(SP) 
014600 010146 MOV R1,-CSP) 
014602 012746 014732 MOV SGO, -(SP) 
014606 012746 000003 MOV 93, -CSP) 
014612 010600 MOV SP,RO 
014614 104415 TRAP CSPNTX 
014616 062706 000010 ADD #10,SP 
1754 014622 PRINTX 1 sPRINT HEADER FOR CONTENTS 
014622 012746 014777 MOV @PRMSG1, -( SP) 
014626 012746 000001 MOV #1,-(SP) 
014632 010600 MOV RO 
014634 104415 TRAP CSPNTX 
014636 062706 000004 ADD 04,SP 
1755 014642 00 CLR R4 sNUMBER OF THE CURRENT WORD 
1756 014644 012701 002322 MOV #€XPMSG,R1 sGET EXPD BUFFER ADDRESS 
1757 014650 012702 002466 MOV @RECMSG ,R2 ;GET RECV BUFFER ADDRESS 
1758 014654 011100 20%: MOV CR1),RO sGET EXPD 
1759 014656 011203 MOV CR2),R3 ;GET RECV 
1760 014660 XOR RO,R3 ;XOR EXPD/RECV 
1761 014670 PRINTX @PRMSG2,R4,(R1)+,CR2)+,R3 
014670 010346 MOV R3,-CSP) 
014672 012246 MOV (R2)+,-CSP) 
014674 012146 MOV (R1)+,-CSP) 
014676 010446 MOV R4,-CSP) 
014700 012746 015035 MOV OPRMSG2, -( SP) 
014704 012746 000005 MOV #5,-(SP) 
014710 010600 MOV SP ,RO 
014712 104415 TRAP CSPNTX 
014714 062706 000014 ADD #14,SP 
1762 014720 005204 INC 4 sNUMBER OF THE NEXT 
1763 014722 020405 CMP R4,RS ;DONE ALL YET? 
1764 014724 002001 BGE 50$ ;BR IF YES 
1765 014726 000752 BR 20$ 300 ANOTHER 
pe 014730 000207 50$: RTS PC sRETURN 
1768 014732 045 116 045 PRMSGO: .ASCIZ ‘sNSA Message Buffer Address = #01805’ 
1769 014777 045 116 045 PRMSG1: .ASCIZ ‘sNSA Mess Buffer Contents:' 
reese 015035 045 116 045 PRMSG2: ot ‘ SNSA WORD @8D2sA EXPD: SO068A RECV: SO68A XOR: 806: 
-EVEN 
ie -SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
3s? 
1774 ; 
1775 sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 


a 


84 17:14 SEQ 063 


TSV3_- GLOBAL AREAS MACRO 1113 06-FEB- 
XP/REC MESSAGE BUFFER 


PRBYTEXP - PRINT ERROR BYTES IN E 


‘+ 3 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
; 
th 3 RO - NUMBER OF BYTES IN BUFFER 
? ; 
ree ; IMPLICIT INPUTS: 
7 3 
1782 3 EXPMSG - EXPECTED MESSAGE BUFFER 
‘ros : RECMSG - RECEIVED MESSAGE BUFFER 
hes 
1785 015122 PRBYTEXP: : . 
1786 015122 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
1787 015126 010005 MOV RO,RS ;SAVE NUMBER OF BYTES 
1788 015130 005037 002329 CLR PRMNO s INIT ERROR COUNT 
1789 015134 005004 CLR R4 sNUMBER OF THE CURRENT BYTE 
1790 015136 012701 002322 MOV @EXPMSG,.R1 ;GET EXPD BUFFER ADDRESS 
1791 015142 012702 002466 MOV @RECMSG ,R2 ;GET RECV BUFFER ADDRESS 
1792 015146 111190 20%: MOVB €R1),RO sGET EXPD BYTE 
1793 015150 042700 177400 BIC @tC<377>,RO sCLEAR UPPER BYTE 
1794 015154 110037 015470 MOVB RO,PRBEXP sSAVE FOR ERROR REPORT 
1795 015160 111203 MOVB CR2),R3 3GET RECV BYTE 
1796 015162 042703 177400 BIC @tC<377>,R3 ;CLEAR UPPER BYTE 
1797 015166 110337 015472 MOVB R3,PRBREC sFOR ERROR REPORT 
1798 015172 xOR RO,RS 3XOR EXPD/RECV 
1799 015202 122122 CMPB CR1)+,CR2)+ 3EXPD = RECV? 
1800 015204 001431 BEQ 30$ ;B8R IF YES 
1801 015206 005237 002320 INC PRMNO sUPDATE ERROR COUNT 
1802 015212 023727 002320 000010 CMP PRMNO, 08. sPRINTED 8? 
1803 015220 101023 BHI 30$ ;B8R IF YES 
1804 015222 27s: PRINTX @PRBMSG,R4,PRBEXP,PRBREC,R3 
015222 010346 MOV R3,-CSP) 
015224 013746 015472 MOV PRBREC, -( SP) 
015230 013746 015470 MOV PRBEXP, -( SP) 
015234 010446 MOV R4,-(SP) 
015236 012746 015336 MOV @PRBMSG, -( SP) 
015242 012746 000005 MOV #5, -(SP) 
015246 010600 MOV 2RO 
015250 104415 TRAP CSPNTX 
015252 062706 000014 ADD #14,SP 
1805 015256 FORCEXIT 50$ 3;3880 
1806 015266 000404 BR 35$ ; 880 
1807 015270 30$: 
1808 015270 FORCERROR 27$,NOTSSR ;8a0 
1809 015300 35$: ;880 
1810 015300 005204 INC R4 sNUMBER OF THE NEXT 
1811 015302 020405 CMP R4,R5 ;DONE ALL YET? 
1812 015304 002001 BGE 50$ :BR IF YES 
1813 015306 000717 BR 20% 3:00 ANOTHER 
1814 015310 50$: PRINTX @PRBTOT,PRMNO ;PRINT TOTAL ERROR COUNT 
015310 013746 002320 MOV PRMNO, -( SP) 
015314 012746 015423 MOV @PRBTOT, -(SP) 
015320 012746 000002 MOV 2,-C(SP) 
015324 010600 MOV SP ,RO 
015326 104415 TRAP CSPNTX 
015330 062706 000006 ADD 06 , SP 
rte 015334 000207 RTS PC ;RETURN 


1217 015336 045 116 045 PRBMSG: .ASCIZ ‘sSNSA BYTE ¢sD28A EXPD: BOSSA RECV: SO3SA XOR: B03: 


M5 


TSv3_- 0B AREA MACRO _M -FEB- :14 
PRM rExB° PRINT ERROR erike ne ké pet MERSacE oUrrER wae wee 
+t 015423 045 116 045 PRBTOT: a ‘sNSA NUMBER OF BYTES IN ERROR = #02’ 
1820 015470 000000 PRBEXP: .WORD 0 sEXPD 
1821 015472 000000 PRBREC: .WORD 0 ;RECV 
1822 -SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
1823 se 
1824 3 
cone sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
3 
1827 3; INPUTS: 
1828 3 
1829 ; R1 RECEIVED DATA 
1830 3 R2 EXPECTED DATA 
1831 3 
1832 s- 
1833 
1834 015474 BGNMSG EXPREC 
015474 EXPREC:: 
1835 015474 004737 007742 JSR PC ,PRIXOR sPRINT THE DATA 
1836 015500 ENDMSG 
015500 L10017: 
015500 104423 TRAP C$MSG 
1837 .SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
1838 se 
1839 3 
roy ;PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
; 
1842 3 
1843 ; INPUTS: 
1844 : 
1845 : R1 RECEIVED DATA BYTE 
1846 ; R2 EXPECTED DATA BYTE 
1847 : 
1848 3: 
1849 
1850 015502 BGNMSG EXPBREC 
015502 EXPBREC: : 
1851 015502 004737 007612 JSR PC ,PRIBXOR ;PRINT THE DATA 
1852 015506 ENDMSG 
015506 L10020: 
015506 104423 TRAP C$MSG 
1853 
1854 
1855 .SBTTL RAMERR - PRINT RAM AND PACKET DATA 
1856 * 
1857 : 
pind sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
3 
1860 ; INPUTS: 
1861 : 
coon ; R4 POINTER TO COMMAND PACKET 
3 
1864 ; IMPLICIT INPUTS: 
1865 ; 
1866 3 RAMDATA DATA AS READ FROM THE RAM 
1867 ; RAMSIZ NUMBER OF BYTES IN PACKET 


1868 : IF RAMSIZ*0 THEN DEFAULT TO 8. 


NS 


TSVS - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 SEQ 065 
RAMERR - PRINT RAM AND PACKET DATA 
1869 3 
1870 s IMPLICIT OUTPUTS: 
1871 3 
1872 3 RAMSIZ SET TO 0 
1873 i- 
1874 
1875 015510 BGNMSG RAMERR 
015510 RAMERR: : 
1876 015510 004737 013776 JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
1877 015514 ENOMSG 
015514 L10021: 
e878 015514 104423 TRAP CS$MSG 
te -SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
1 3+ 
1881 3 
poe :PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1 H 
1884 ; INPUTS: 
1885 8 
74, : R4 POINTER TO COMMAND PACKET 
1 H 
poe s IMPLICIT INPUTS: 
3 
1890 ; RAMDATA DATA AS READ FROM THE RAM 
1891 3 RAMSIZ NUMBER OF BYTES IN PACKET 
1892 ; IF RAMSIZ=0 THEN DEFAULT TO 8. 
1893 3 ERRHI HIGH ORDER TEST ADDRESS 
pon 3 ERRLO LOW ORDER TEST ADDRESS 
3 
1896 ; IMPLICIT OUTPUTS: 
1897 : 
1898° 3 RAMSIZ SET TO 0 
1899 ae 
1900 
1901 015516 PONMSG RAMTADD 
. 015516 RAMTADD: : 
1902 015516 004737 010274 JSR PC ,PRITADD sPRINT TEST ADDRESS 
1903 015522 004737 013776 JSR PC ,PRAMPKT ;PRINT RAM/PACKET DATA 
1904 015526 NOMSG 
015526 L10022: 
— 015526 104423 TRAP C$MSG 
feos -SBiTL RAMEXP - PRINT RAM EXPD/RECV DATA 
3° 
1908 ; 
cee sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
1911 ; INPUTS: 
i%12 : 
1915 ; R1 RECEIVED DATA 
1914 : Ro EXPECTED DATA 
1915 : RO CONTROLLER RAM ADDRESS 
1916 ; 
1917 
1918 015530 BGNMSG RAMEXP 


015530 RAME XP: : 


TSV3 - GLOBAL AREAS 


RAME xP 


- PRINT 


015576 
015600 


015700 
015700 
015700 
015702 
015706 
015706 
015710 
015714 
015720 


012746 
012746 


010246 
042702 


010246 
012746 
012746 
010600 


MACRO M1113 06 
RAM EXPD/RECV DATA 


015600 
000001 


000004 
007742 


116 


177400 


015740 
000002 


045 


B6 


-FEB-84 17:14 SEQ 066 


BIC @tC<377>,R1 sSAVE EXPD RAM DATA BYTE 


BIC @tC<377>,R2 sSAVE EXPO RAM DATA BYTE 
JSR PC, PRIRAM sPRINT THE RAM ADDRESS 
JSR PC,PRIXOR : sPRINT THE DATA 
ENOMSG 

L100283; 
TRAP C$MSG 


-SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
ae 


4 
sPRINT ROUTINE TO DISPLAY EXPO/RECV DATA 
sANO TIMER A,B HEADER MESSAGE 


3 

s INPUTS: 

: R1 RECEIVED DATA 

: R2 EXPECTED DATA 

a 

BGNMSG TIMEXP 

“PRINTX @TIMSGO sPRINT HEADER 


MOV @TIMSGO, -( SP) 
MOV @1,-(SP) 


MOV SP ,RO 
TRAP CSPNTX 
ADD @4,SP 
JSR PC ,PRIXOR sPRINT THE DATA 
ENOMSG 
L10024: 


TRAP  CSMSG 
TIMSGO: .ASCIZ ‘sNwSA TIMER A STATUS IS IN BIT 36NSA TIMER B STATUS IS IN BIT 2: 
: .SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


5 
sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANS! ERS 


3 

s INPUTS: 

; 

3 R1 CONTENTS OF TSSR 

3 Ro DATA WRITTEN (6 BITS) 

4 

e 
BGNMSG BADSSR 

BADSSR: : 
MOV R2,-(SP) sSAVE DATA TRANSFERRED 
BIC @177400,R2 sGET JUST ONE BYTE 
PRINTB @XFERASC,R2 
MOV R2, -(SP) 
MOV @XFERASC, -( SP) 


MOV SP,RO 


C6 


T . . . : 
gabsse OLR aT ERR erroke BR BatAS ra RRcFERS&* arste SEQ 067 

015722 104414 TRAP CSPNTB 

015724 062706 000006 AOD » SP 
1961 015730 012602 MOV (SP )+,R2 sRESTORE R2 
1962 015732 004737 006024 JSR PC,PRITSSR sDECODE TSSR CONTE.ITS 
1963 015736 ENOMSG 

015736 10025: 

015736 104423 RAP C8MSG 
1964 015740 045 116 045 xXFERASC: ASCIZ ‘NSA Dete Transferred = 603' 
1965 .SBTTL GLOBAL SUBROUTINES SECTION 
1966 
1967 yee 
1968 3 THE GLOBAL SUBROUTINES SECTION a THE SUBROUTINES 
pH : THAT ARE USED IN MORE THAN ONE TEST 
1 = 
34h -SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
1972 
1973 se 
1974 3 
1975 sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLFR 
1976 sB8Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
1977 3 THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
244 sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 

: 
1980 s INPUTS: 
1981 3 
pee 3 RS ADDRESS OF FIRST REGISTER 
3 

1984 sOUTPUTS: 
1985 A 
1986 5 RO CONTENTS OF TSSR, IF ERROR 
1987 a CARRY SET IF INIT WAS OKAY 
1988 3 CLEAR IF FATAL ERROR 
1989 : 
1990 sCALLING SEQUENCE: 
1991 : 
1992 3 MOV @ADDRESS RS 
1993 3 JSR PC,SOF INIT 
1994 3 6cs CONT INUE 
1995 ; ERROF sREPORT FATAL ERROR 
1996 3 
1997 $ 
1998 
1999 015774 SOF INIT: 
2000 015774 SAVREG : SAVE THE REGISTERS 
2001 016000 012765 000000 090002 MOV #0, TSSR(RS) : OO THE INIT 
2002 016006 004737 016250 JSR PC ,WAITF 3 WAIT FOR SSR 
2003 016012 016500 000002 MOV TSSRCRS), RO sGET THE TSSR REGISTER 
2004 016016 010004 MOV RO,R4 3TSSR CONTENTS 
2005 016020 042704 176277 BIC @tC<HIADOR!OFL>, R4 
2006 016024 052704 002200 BIS @SSR!NBA,R4 3R4 HAS EXPECTED CONTENTS 
2007 016030 020400 CMP R4,RO sONLY EXPECTED BITS SET ? _ 
2008 016032 001402 BEQ 53 sBRANCH IF OKAY 
2099 016034 000241 cLCc sCLEAR THE CARRY FOR ERROR ¢ 
2010 016036 000401 6R 10% 3GO TO ExIT 
2011 016040 000261 5%; SEC 3;SET THE CARRY BIT 
2012 016042 000207 108; RTS PC sRETURN TO CALLER 
2013 .SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY > 


D6 


eRe CLOBARCAPERED conMARBOtIHHES 06 -FEB-84 17:14 SEQ 068 
2014 
2015 “i 
2016 
2017 i THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
2018 o AMBIGUITY 
2019 
2020 P INPUT : 
2021 3 
2022 : RO CONTENTS OF TSSR 
2023 3 
2024 ;OUTPUT: 
2025 3 
2026 ; RO CONTENTS OF TSSR 
2027 3 
2028 ; CARRY SET - NO AMBIGUITY 
2029 : CLR - AMBIGUOUS CONTENTS 
2030 3 
2031 8° 
2032 
2033 016044 CHK AMB : 
2034 016044 SAVREG sSAVE THE GENERAL REGISTERS 
2035 016050 010004 MOV RO,R4 sCONTENTS OF TSSR 
2036 016052 0327 100000 BIT @SC,RO IS BIT 15 SET ? 
2037 016056 001004 BNE 5$ ;BRANCH IF YES 
2038 016060 032700 174077 BIT @tC<NBA!OFL!SSRIMIADOR>, RO sANY OTHER BITS SET ? 
2039 016064 001023 BNE 40% sMUST BE AN ERROR 
2040 016066 000424 BR 45% sRETURN WITH SUCCESS 
2041 016070 032700 000200 5$: BIT @SSR.RO sIS READY BIT SET ? 
2042 016074 001011 BNE 10% sBRANCH IF READY BIT IS SET. 
2043 016076 032700 000040 BIT #BITS,RO sIS FATAL ERROR BIT SET ? 
2044 016102 001414 BEQ 40% sERROR IF NOT 
2045 016104 042704 177761 BIC @tCTERCLS,R4 sCLEAR ALL BUT TERMINATION CODE 
2046 016110 020427 000016 CMP R4,016 3ALL THREE BITS MUST BE SET 
2047 016114 001007 BNE 40% sERROR IF NOT SET 
2048 016116 000410 BR ass) 30K IF ALL ARE SET 
2049 016120 032700 000040 108: BIT @BITS,RO iIS FATAL ERROR BIT SET ? 
2050 016124 001405 BEQ 453 sERROR IF BIT IS SET WITH SSR 
2051 016126 032700 000006 BIT @BIT2!BIT1,RO iTS THIS A FUNCTION REJECT 
2052 016132 001002 BNE 453 3BR, IF TSSR IS OK 
2053 016134 000241 408: cLC sAMBIGUOUS CONTENTS 
2054 016136 000401 BR 508 
2055 016140 000261 45$: SEC sSHOW SUCCESS - NO AMBIGUITY 
2056 016142 000207 508: RTS PC sRETURN TO CALLER 
at -SBTTL ENAINT,OSBINT - ENABLE /DISABLE INTERRUPTS 
; 
2059 ; DEFAULT DISPLAY INTERRUPT HANDLERS. 
2060 ; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
2061 ; OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 
2062 a 
2063 
oor ; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
Hi 
2066 000200 IOKCKIN-BIT7 s DON'T CHECK FOR BAD INTERRUPTS -- TEST wILL. 
2067 000001 IOKSTP=BITO 3 EXPECT “STOP” INTERRUPT. 


‘ 
2069 s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
2070 016144 000 INTMASK; -BYTE 0 
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SEQ 069 


ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


2071 
2072 016145 000 
2073 
2074 
2075 016146 000000 
2076 
2077 016150 000000 
2078 
2079 
2080 016152 010046 
2081 016154 013700 002210 
2082 016160 012720 016216 
2083 016164 012720 000340 
2084 016170 012600 
2085 016172 011646 
2086 016174 012766 000000 000002 
2087 016202 
2088 
2089 
2090 016204 011646 
2091 016206 012766 000340 000002 
2092 016214 000002 
2093 
2094 
2095 016216 
016216 
2096 016216 012737 000001 002224 
2097 016224 105037 016145 
2098 016230 132737 1 016144 
2099 016236 001003 
2100 016240 152737 000001 016145 
2101 
2102 
2103 016246 
2104 016246 
016246 
016246 000002 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 01625C 000401 
2120 016252 
016252 10442 
2121 016254 012746 011000 
2122 016260 016500 000002 
2123 016264 105700 


s INTERRUPT FLAG an ia y GOT ONE CIF POSITIVE) 


INTFLAG: 
;SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
;SAVE CPU PC 
INTCPC: .WORD 
;SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV 0, -(SP) iSAVE R 
MOV Tec. RO GET POINTER TO VECTORS 
MOV @INTR,(RO)> ;SET UP INTERRUPT VECTOR 
MOV @PRIO7,(RO)+ 
MOV (SP}+,RO sRESTORE RO 
MOV (SP), -(SP) 
mov 00,2(SP) :SET CPU TO LEVEL 0 
;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV (SP), -(SP) 
Mov @PRIO7, 2(SP) 
.SBTTL INTR - INTERRUPT HANDLERS 
coe BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
“MOV 01, INTRECV ;SET FLAG TO SHOW INTERRUPT RECEIVED 
CLR8  ~—sCINTFLAG ;CLEAR FLAG TO SAY WE GOT INTERRUPT 
BITB § @IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
BNE 1$ .BR IF YES 
BISB $ IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
: SAVE REGISTERS, MSG BUFFER, ETC. 
; ENOSRV 
L10026: 
RTI 
.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
* SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
7 
; INPUTS: 
: RS ADDRESS OF FIRST DEVICE REGISTER 
" 
;OUTPUTS: 


® 
j RO CONTENTS OF LAST TSSR READ 

; CARRY SET - READY BIT SET 
: CLR - TIMEOUT WAITING FOR READY 
; 

W 


AITF:: BR 1$ sNOP WHEN SUPER FIXED 

BREAK ; DO A SUPVSR BREAK FIRST. 

TRAP CsBRK 
1$; MOV #11000, -(SP) 325-APRIL-83 REV B - 1100 MSEC TIMER 
2s; MOV TSSRCRS),RO sREAD THE TSSR REGISTER 

TSTB RO ;TEST FOR READY BIT SET 
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WAITF 


- WAIT 


016374 


FOR SUBSYSTEM READY 


100420 
012727 
000000 


F6 
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BMI 3$ s EXIT ON STOP FLAG. 
DELAY 1 3s WAIT 100 USEC 


000001 
Q2116 
177772 
177756 


016250 
016044 
100000 
074000 


MOV @1,(PC)> 
-WORD 0O 
MOV nr 


. WORD 
DEC —s 
BNE 
DEC "22¢PC) 
BNE -20 
DEC (SP) sREDUCE DELAY COUNT 
BNE es sRETRY UNTIL TIMER EXPIRES 
cLC 3C #0, Se ee STILL RUNNING... 
BR as + ee HUNG-UP AFTER 300 MSEC. 
3$: SEC Ge CONTROLLER IS STOPPED. 
4$: 3 (SP)-> ‘RESTORE STACK WITHOUT CHANGING CARRY BIT 


RTS PC 
-SBTTL CHKTSSR - CHECK TSSR FOR READY 
7° 


H 
sTHIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


; INPUT: 

3 

, RS ADDRESS OF CSR REGISTERS 

sOUTPUT 

: 

; RO CONTENTS OF TSSR 

; CARRY SET - OKAY 

; CLR - NOT READY AMBIGUOUS, OR SC SET 

3 

ge 

CHKTSSR: 
JSR PC. WAITF ;WAIT FOR READY 
BCC ;BRANCH IF TIME OUT 
JSR ec Crane ;TSSR AMBIGOUS? 
Bcc 10 ;8R IF YES 
BIT asc RO ;SPECTAL CONDITION SET? 
BEQ 155 BR IF 
BIT @<SCE!BIE!RMRINXM>,RO ANY ERROR BITS SET? 
BEQ 15$ :8R IF NO 

10$: CLC iSET FAILURE 
BR 208 

15$: SEC }SET SUCCESS 

20s: ats PC ;RETURN TO CALLER 
.SBTTL XNXM CHECK FOR NONEXISTENT MEMORY 


3° 

s ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
s ON RETURN, IF “C” = 1, (R1) = NEXM ADDRESS. 

3 "C” = 0, ALL ADORESSES OK, 


i 
sCALL: MOV ADR1,R1 
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2173 


- CHEC 


016376 
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RPESE none STENT AbRong FER-€4 171 sea o7 
3 MOV ADR2,R2 
PF JSR PC,NXM 
: RETURN sTEST “C” AND PROCEED. 
3 
012737 016430 000004 XNXM: MOV 923,804 : SET BUSERR VECTOR. 
012737 000200 000006 MOV OPRI04 , 806 
005003 CLR R3 sFLAG. 
005711 1$: TST CR1) sTEST THE ADDRESS(ES). 
3IF ANY TRAP, CONTINUE AT 2s. 
029102 CMP R1,R2 sOTHERWISE, CONTINUE HERE. 
0061407 BEQ 3% ;68R IF FINISHED (NO NEXM’S). 
062701 0000C2 AC @2,R1 ;SET NEXT ADDRESS... 
000772 BR 1$ 3..-AND CONTINUE, 
005103 2s: COM R3 sGOT ONE, SET FLAG... 
012716 016440 MOV @3$,(SP) 
RTI 3...AND DISMISS INTERRUPT... 
33: CLRVEC 64 3..-AND GIVE BACK THE VECTOR. 
012700 000004 MOV 04,RO 
104436 TRAP CsCvECc 
005703 TST R3 ;DID WE CATCH ONE ?? 
001401 BEQ 04 3NO, “C” = 0, SKIP NEXT. 
000261 SEC sVES, "C" = 1, (R1) = NEXM ADDR. 
000207 RTS PC 
-SBTTL TSTLGOP - CHECK ITERATION COUNT 
3° 
; SUBROUTINE TO EXECUTE TEST ITERATIONS. 
3; EXIT WITH "C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 
i 
; CALL: LOOPTO ARG 
3 
TSTLOOP: : 
005737 002170 TST NOITS 3; ITERATIONS INHIBITED? 
001 BNE 1$ 3; YES. 
005737 002204 TsT QvP 3; NO. 
10040 BMI 1$ ;LOOPS DISALLOWED IN QUICK PASS. 
005337 902216 DEC LOOPCNT ; BUMP LOOP COUNTER. 
00100. BNE 2s 
000241 18: CLC sLOOP DISALLOWED, OR DONE. 
000401 BR 3$ 
000261 2s: SEC ;LOOP ENABLED. 
000207 3$: RTS PC 
-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
3° 
; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
; INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 
; IN THE CURRENT RUN SEQUENCE. 
; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
3 
3s INPUT; 
3 
: RO POINTER TO TEST ID ASCIZ STRING 


; 


H6 
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TSTSETUP PRINT fest NAME ano taht ERBOR Boone . . 
2228 sOUTPUT: 
2229 3 
ty 3 RS ADDRESS OF FIRST DEVICE REGISTER 
3 
ocee s IMPLICIT OUTPUTS: 
3 
tt 3 TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
3 
$44 ;SIDE EFFECTS: 
3 
2238 3 INTERRUPT LEVEL IS RASIED TO LEVEL OF 
2239 3 THE DEVICE UNDER TEST 
2240 FY 
2241 :- 
2242 
2243 016510 TSTSETUP 
2244 016510 010046 MOV RO, -( SP) sSAVE THE TEST ID MESSAGE 
2245 016512 005037 003154 CLR STFLAG ; CLEAR “SOFT INIT” FLAG 
2246 016516 005037 016756 CLR ERRK : CLEAR LOCAL ERROR COUNTER. 
2247 016522 005037 005772 CLR EXTA 3s CLEAR ERROR EXTENSION FLAG. 
2248 016526 105037 016144 CLRB INTMASK 3: CLEAR INTERRUPT MASK (CHECK ERROR) 
2249 016532 013700 002202 MOV UNITN,RO 3 GET THE UNIT NUMBER, 
2250 016536 006300 ASL RO 3... AND MAKE IT A WORD OFFSET. 
2251 016540 005737 003114 TST NODE V ; DIO STARTUP FIND THE DEVICE?: 
2252 016544 001430 BEQ 43 ; BR IF YES 
2253 016546 100010 BPL 3$ ; BR IF NOT IDOLE 
2254 016550 052760 160000 003176 BIS #160000, ERTABL(RO) s FLAG ERROR IN THE ERROR TABLE 
2255 016556 ERRDF 1,NXR,NXRERR : NO DEVICE HERE -- PRINT IT 
016556 104455 TRAP CSERDF 
016560 000001 . WORD 1 
016562 003740 -WORD NXR 
016564 005736 . WORD *“ QERR 
2256 016566 000407 BR 
2257 016570 052760 160001 003176 3%: BIS W1,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
2258 016576 ERROF ‘NIT ; DEVICE NOT IDOLE 
016576 104455 TRAP CstrOF 
016600 000002 . WORD 2 
016602 004335 -WORD NOINIT 
016604 000000 -WORDB O 
2259 016606 012737 177777 003112 2%: MOV @-1,0UFLG 3; DROP THE UNIT 
2260 016614 DODU UNITN 
016614 013700 002202 MOV UNITN,RO 
016620 104451 TRAP CsD00U 
2261 016622 DOCLN ; ABORT THE PASS 
016622 104444 TRAP CSDCLN 
aoe 016624 000423 BR 5$ 
2264 016626 4s: RFLAGS RO ; GET THE OPERATOR FLAGS. 
016626 104421 TRAP CS$RFLA 
2265 016630 032700 001000 BIT OPNT ,RO 3; PRINT THE TEST NUMBERS? 
2266 016634 001412 BEQ 1$ ; BR IF NO 
2267 016636 011600 MOV (SP),RO ;GET THE ID MESSAGE 
2268 016640 PRINTF @TNAM,RO sDISPLAY THE TEST ID 
016640 010046 MOV RO, -(SP) 
016642 012746 016704 MOV @TNAM, -( SP) 
016646 012746 000002 MOV @2,-C(SP) 
016652 010600 MOV SP ,RO 


I6 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
016654 104417 TRAP CSPNTF 
016656 062706 000006 ADD #6, SP 
2269 016662 005237 002214 18; INC TSTCNT s_ BUMP TEST COUNTER. 
2270 016666 SETPRI IPRI sPRIORITY THAT OF DEVICE 
016666 013700 002212 MOV IPRI,RO 
016672 104441 TRAP C$SPRI 
2271 016674 005726 S$: TST (SP )-+ sFIX UP THE STACK 
2272 016676 013705 00220 MOV CSRADOR ,RS s ADDRESS OF TSV REGISTERS ON UNIBUS 
2273 016702 000207 RTS PC 
2274 016704 045 123 045 TNAM: -ASCIZ ‘SSSTSA Test’ 
2275 -EVEN 
oy -SBTTL TSTEND - PRINT ERRORS RECEIVED 
‘ 
2278 ; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
o ; IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 
; 
2281 016720 TSTEND: RFLAGS RO 
016720 104421 TRAP CSRFLA 
2282 016722 030027 020000 BIT RO, @IER 
2283 016726 001412 BEQ 1$ : BR IF “TER” NOT SET. 
2284 016730 PRINTF @#€SUM,ERRK s PRINT ERROR COUNT. 
016730 013746 016756 MOV ERRK, -( SP) 
016734 012746 016760 MOV @ESUM, -(SP) 
016740 012746 000002 MOV #2, -(SP) 
016744 010600 MOV SP ,,RO 
016746 104417 TRAP CSPNTF 
016750 062706 000006 ADD 06 ,SP 
oo. 016754 000207 1$: RTS PC 
2287 016756 000000 ERRK: 0 3; LOCAL ERROR COUNT. 
2288 016760 045 102 040 ESUM: -ASCIZ /#A SDSA ERRORS/ 
2289 016777 105 122 122 EMAXDU: .ASCIZ /ERROR LIMIT REACHED -- DROPPING UNIT/ 
2290 EVEN 
2291 
ee -SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
3¢ 
oes ; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
- 
2296 017044 005237 016756 INCERK: INC ERRK ; INCREMENT LOCAL ERROR COUNT 
2297 017050 010046 MOV RO, -( SP) ; SAVE RO 
2298 017952 013700 002202 MOV UNITN,RO ; GET UNIT NUMBER, 
2299 017056 006300 ASL RO ; ... AND MAKE IT A WORD OFFSET. 
23500 017060 062700 003176 ADD @ERTABL ,RO s RO GETS ADDRESS OF ERROR TABLE ENTRY. 
2301 017064 005210 INC (RO) s INCREMENT THE DEVICE ERROR COUNT 
2302 017066 032710 007777 BIT 07777,(RO) s OID WE OVERFLOW THE FIELD? 
2303 017072 001001 ONE 1$ s BR IF NO. 
2304 017074 005310 DEC (RO) s YES -- BACK IT WP TO 7777. 
2305 017076 012600 18: MOV (SP )+,RO 3s RESTORE RO 
oot 017100 000207 RTS PC s RETURN TO CALLER. 
2308 017102 010046 CKEMAX: MOV RO, -(SP) s SAVE RO 
2309 017104 013700 002202 MOV UNITN,RO ; GET UNIT NUMBER 
2310 017110 006300 ASL RO s ... AND MAKE IT A WORD OFFSET 
2311 017112 016000 003176 MOV ERTABL(RO),RO ; GET ERROR TABLE ENTRY 
2312 017116 042700 170000 BIC #170000 ,RO ; EXTRACT ERROR COUNT FIELD 
2313 017122 020037 002174 CMP RO, GERRMAX s IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
; 


2314 017126 103004 BHIS 1$ BR IF YES 
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- INCREMENT LOCAL ERROR COUN 


017130 
017136 
017140 
017140 
017142 
017146 
017150 
017156 
017156 
017160 
017162 
017164 
017166 
017166 
017172 
017174 
017174 
017176 
017200 


017202 
017204 
017214 
017214 
017216 
017222 
017224 
017226 
017234 
017234 
017240 
017242 
017242 
017244 
017246 


017250 
017250 
017254 


017256 
017262 
917264 
017272 
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SEQ 074 


s IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
; BR IF NO 
; GET OPERATOR FLAGS 


s IS DROPPING INHIBITED? 
» BR IF YES 
+ NO -- DROP THE UNIT 


; RESTORE RO 
URN TO CALLER 


RET 
CKDROP - CHECK ir UNIT SHOULD BE DROPPED 


;ABORT THE PASS 


CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
é 
; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


- ENABLE /DISABLE MEMORY MANAGEMENT 


; GO” KT? 
: NO. 
; YES. ENASLE KT11. 


023737 016756 002172 CMP ERRK ,LERRMAX 
103417 BLO es 
1$; RFLAGS RO 
104421 TRAP CSRFLA 
032700 000040 BIT @IDU,RO 
001015 BNE 3 
012737 177777 003112 MOV @-1,0UFLG 
EP®OF 4, EMAXDU 
104455 TRAP CSERDF 
000004 . WORD 
016777 «WORD EMAXDU 
000000 . WORD 
DODU UNITN 
013700 002202 MOV UNITN,RO 
104451 TRAP 
DOCLN 
104444 TRAP CSOCLN 
012600 2s: MOV (SP)+,RO 
000207 RTS PC 
. SBTTL 
;° 
; CHECK IF UNIT SHOULD BE DROPPED 
he 
010046 CKDROP; MOV RO, -(SP) 
FORCERROR 1$,NOTSSR 
RFLAGS RO 
104421 TRAP CSRFLA 
032700 000040 BIT @I0U,RO 
001010 BNE 1$ 
011600 MOV (SP),RO 
012737 177777 003112 MOV @-1,0UFLG 
DODU UNITN 
013700 002202 MOV UNITN,RO 
104451 TRAP cs 
DOCLN 
104444 TRAP CSOCLN 
012600 1$: MOV (SP )+,RO 
000207 RTS PC 
. SBTTL 
: 
CONFIG: 
004737 015774 JSR PC. SOF INIT 
000207 RTS PC 
.SBTTL KTON,KTOFF 
3 
; SUBROUTINE - ENABLE MEM MGT. 
; 
005737 003132 K TON: TST KTFLG 
001403 BEQ 1$ 
012737 000001 177572 MOV #1,SRO0 
0002C7 1%: RTS PC 


IKé 


‘NN 
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KTON, KTOFF - ENABLE/DISABLE MEMORY MAN. nt 
epee ; SUBROUTINE - DISABLE MEM MGT. 
+ 
2362 017274 005737 003132 KTOFF: TST KTFLG ; GOT KT1i1? 
2363 017300 001405 BEQ 1$% : NO. 
2364 017302 000240 NOP 
2365 017304 000240 NOP 
366 017306 012737 000000 177572 MOV #0, SRO ; DISABLE KT. 
2367 017314 000207 1s: RTS PC 
2368 .SBTTL SETMAP - SETUP PAR6 MAPPING 
2369 
2370 3° 
2371 ; 
2372 ;THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
2373 3;AN 18 BIT ADDRESS. THE CFFSET INTO THE PAGE 
2374 3;IS RETURNED BIASED TO PARE. 
2375 3 
2376 ; INPUTS: 
2377 ; 
2378 ; RO HIGH ORDER ADDRESS BITS 
2379 : R1 LOW ORDER ANORESS BITS 
2380 3 
2381 ;OUTPUTS: 
2382 3 
2383 ; RO OFFSET INTO BLOCK WITH PARG6 BIAS (I.E. THE ADDRESS) 
2384 ; CARRY SET IF SUCCESS 
2385 3 CLR IF ERROR 
2386 3: 
2387 017316 SETMAP: 
2388 017316 SAVREG ;SAVE R1-R4 UNTIL NEXT RETURN 
2389 017322 005737 003132 TST KTFLG ;SYSTEM HAVE ABOVE 28K? 
2390 017326 001433 BEQ 10% ;8R IF NO 
2391 017330 010102 MOV R1,R2 ;SAVE LOW ORDER BITS 
2392 000006 .REPT 6 
2393 ASR RO ;CONVERT WORD ADORESS TO 32wW BLOCKS 
2394 ROR R1 ;MAKE IT DOUBLE PRECISION 
2395 .ENOR , 
2396 017362 042701 000177 BIC @177,Ri s;ALINE FOR LOWER 4K BOUNDARY 
2397 017366 020137 003132 CMP R1,KTFLG s;HIGHER THAN EXISTING MEMORY? 
2398 017372 103011 BHIS 10% ;8R IF YES 
2399 017374 010137 172354 MOV R1, BOK IPARG ;SETUP MAPPING REGISTER PARG6 
2400 017400 042702 160000 BIC #160000 ,R2 ;SETUP DISPLACEMENT IN PAGE 
2401 017404 062702 140000 ADO #140000 ,R2 ;ADD IN PARG BIAS 
2402 017410 010200 MOV R2,RO ;RETURN IN RO 
2403 017412 000261 SEC sSET SUCCESS 
2404 017414 000401 BR i5$ ; 
2405 017416 000241 10$: cLC ;SET FAILURE 
2406 017420 000207 153: RTS PC ;RET 
oes! .SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
3 
ore ; FILL MEMORY WITH A BACKGROUND PATTERN 
Hy 
2411 3; INPUTS: 
2412 ; 
2413 ; RO = BACKGROUND PATTERN 
2414 3 FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
ott ; KTFLG = SET TO HIGHEST MEMORY LOCATION IF >» 28K, 


TSv3 
FILL 


2417 
2418 
2419 
2420 


MEM - 


017422 
017422 
017426 
017432 
017434 
017440 
017444 
017446 
017450 
017452 
017456 
017460 
017464 
017466 


- GLOBAL AREAS 
FILL MEMORY WITH B 
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017274 


003124 
003126 


003132 
017256 
003152 


017316 
160000 
020000 
000200 
172354 
003144 
177572 
177761 
000016 
003146 
172354 
000020 


017542 
017274 


007600 


172516 


10$: 


35$: 


40$: 
453: 
50$: 
55%: 


RBTTL 


@16,R4 
SO 


30 
a7 * <TOFF 
CMPMEM 


L6 


SEQ 076 


sSPVE R1-RS UNTIL NEXT RETURN 
sOISABLE KT. 

:;COPY TEST PATTERN 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
:STORE A BACKGROUND WORD 

: DONE _ MEMORY IN FREE SPACE? 


; YES. ENABLE KT. 
sHIGH ORDER ADDRESS START 
:GET >28« START ADDRESS CIN 32W BLOCKS) 


;CLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


;SETUP PAR6 MAPPING REGISTER 
;STORE TEST PATTERN IN >28K 4SDDRESS 
sEND OF PAR6 MAPPING AREA? 

;6R IF NO 

;BACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 

;B8R IF YES 

311/23A? 

:NO KEEP GOING 

3GET SRO CONTENTS 

;CLEAR ee PAGE NUMBER 


GOING 
— 18 BITS? 


YES 
iNO KEEP GOING 
;SET 22 BIT RELOCATION 
sKEEP GOING ON ETC. 
; DISABLE KT. 


- COMPARE MEMORY TO BACKGROUND PATTERN 


3¢ 
; COMPARE MEMORY WITH A BACKGROUND PATTERN 


INPUTS: 


RO = BACKGROUND PATTERN 
* FIRST LOCATION AVAILABLE 


FREE 
KTFLG 


TO DIAGNOSTIC 


* SET TO HIGHEST MEMORY LOCATION IF >» 28K, 


Les Behe ASE enon ME BACRBAT nS onTAERA 7" 


3; OUTPUTS: 


017660 
017660 
017664 
017666 
017672 
017676 
017702 
017704 
017706 
017712 
017716 
017722 
017726 
017730 
017732 
017734 
017736 
017742 
017744 
017750 
017752 


020076 


017274 
003124 
003126 


000177 


017316 


020000 


Chee oe oe oe oe oe oe oe oe oe a 


10$: 


158: 


323: 


CARRY 
CARRY 


SEQ 077 


- SET IF NO ERROR 


- CLR TF ERROR 
IMPLICIT CUTPUTS: 


ERROR HIGH ADDRESS 
ERROR LOW ADDRESS 
EXPECTED DATA 
RECEIVED DATA 


RRH 
R3,EXPD 
(R1),RECV 
5S0$ 


RO 
ahem 


R1 
RO 


#177,R1 


#20000 ,R4 


sSAVE R1-RS UNTIL NEXT RETURN 
s;COPY TEST PATTERN 

sOISABLE KT. 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sFREE SPACE LOCATION EQUAL TO EXPD? 
sBR IF YES 

sSAVE ADDRESS IN ERROR 

sNO HIGH ADDRESS 

sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


° 
sPOINT TO NEXT ADDRESS 
;D0NE ALL MEMORY IN FREE SPACE? 


; NO. GET OUT. 

3; YES. ENABLE KT. 

sHIGH ORDER ADDRESS START 

sGET >28K START ADDRESS CIN 32W BLOCKS) 


s;CONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


s;ALINE 4K BOUNDARY 

;SAVE HIGH ORDER 

;SAVE LOW ORDER 

;SETUP PAR6 MAPPING REGISTER 

;COPY ADDRESS BIASED TO PARGE 

sRESTORE LOW ORDER IN NON PAR6 FORMAT 
;RESTORE HIGH ORDER IN NON PAR6 FORMAT 
sABOVE 28K LOCATION EQUAL EXPD? 

3;B8R IF YES 

;SAVE HIGH ORDER IN ERROR 

;SAVE LOW ORDER IN ERROR 

;SAVE EXPD FOR ERROR REPORT 

sSAVE RECV FOR ERROR REPORT 


3 

;UPDATE NON PAR6 ADDRESS 

;MAKE IT DOUBLE PRECISION ADD 
;UPDATE PAR FORMAT ADDRESS 

;END OF PAR6& MAPPING AREA? 

;BR IF NO 

;BACKUP INTO PAR6 MAPPING BEGIN 


N6 


isys. 5 St AS -84 17:14 SEQ 078 
OROHPARE MEMORY TS BACKROUNS PAT FERN . 
2531 020102 062737 000200 172354 ADD #200, Q0KIPAR6 ;POINT TO NEXT 4K BLOCK >28K. 
2532 020110 023737 172354 003132 CMP QOKIPAR6,KTFLG ;END OF MEMORY? 
2533 020116 101744 BLOS 30% ;8R IF NO 
2534 020120 004737 017274 50$: JSR PC ,KTOFF 3TURN OFF MEMORY MAPPING 
2535 020124 000241 cLC 3SET FAILURE 
2536 020126 000403 BR 60$ : 
2537 020130 004737 017274 55$: JSR PC ,KTOFF sTURN OFF MEMORY MAPPING 
2538 .020134 000261 SEC 3SET SUCCESS 
2539 020136 000207 60$: RTS PC 
2540 .SBTTL REGSAV - SAVE R1-RS ON STACK 
2541 3° 
2542 FY 
2543 s;ROUTINE TO 
oon ;SAVE R1 THROUGH RS ON THE STACK 
3 
2546 ;CALLING SEQUENCE: 
2547 : 
Fed ; JSR RS,REGSAV 
Hy 
2550 ;THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
2551 ;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
2552 ;THE RTS PC RETURNS CONTROL TO THIS %OUTINE TO RESTORE 
a4 ;REGISTERS. 
; 
2555 ;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
2556 ;CALLED VIA A JSR PC INSTRUCTION 
2557 3 
2558 z- 
2559 
2560 020140 REGSAV: 
2561 020140 010446 MOV R4,-CSP) 
020142 010346 MOV R3,-(SP) 
2563 020144 010246 MOV R2, -(SP) 
2564 020146 010146 MOV R1,-(SP) 
2565 020150 010546 MOV RS, -(SP) 
2566 020152 016605 000012 MOV 10.(SP),R5 
2567 020156 004736 JSR PC, a(SP)-+ 
2568 020160 012601 MOV (SP)+,R1 
2569 020162 012602 MOV (SP)+,R2 
2570 020164 012603 MOV (SP)+,R3 
2571 020166 012604 MOV (SP)+,R4 
2572 020170 012605 MOV (SP)+,RS 
2573 020172 000207 RTS PC 
coos -SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
;? 
2576 3 
+ ta ;ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
; 
2579 ; INPUTS: 
2580 3 
2581 ; NONE . 
2582 ; 
2583 ;OUTPUTS: 
2584 : 
ot ; RO OCTAL NUMBER FROM THE OPERATOR 
Q 
2587 ;CALLING SEQUENCE : 


020230 
020232 


105 


010002 
010203 
005715 
001412 


012346 
012746 
012746 
010600 


MACRO M1113 


020230 


116 


020442 
000002 


06 - 
PATTERN FROM OPERAT 


124 


B7 


FEB-84 17:14 SEQ 079 
oR 
‘ 
3 JSR PC ,GETPAT 
$ 
B - 
GETPAT:;: 
SAVREG is VE THE GENFRAL REGISTERS 
18; GMANIO  pibes 5 PATDAT,O, 377 ~0,377,NO 
TRAP C8GMAN 
BR 100008 
. WORD PATDAT 
. WORD TSCODE 
. WORD DATASC 
. WORD 377 
. WORD TSLOLIM 
. WORD TSHILIM 
100008: 
tla 1% sRETRY IF ERROR 
MOV PATDAT,RO sDATA PATTERN FROM OPERATOR 
RTS PC sRETURN TO CALLER 


3° 
sLOCAL DATA AREA 


PATDAT;: .WORD 
DATASC: yet IZ 
. SBTTL 


0 s TEMPORARY STORAGE FOR DATA 
‘ENTER DATA PATTERN’ 


GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


H 
sROUTINE TO ISSUE A MENU AND GET 
3s THE OPERATOR'S RESPONSE. 


3 

s INPUTS: 

8 

3 RO 

3 R1 

3 

sOUTPUTS: 

3 

3 RO 

3 

$ _ 

GETSEL:: 
SAVREG 
MOV 

18: MOV 

23: TST 
BEQ 
PRINTF 
MOV 
MOV 
MOV 
MOV 


ADORESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 


NUMBER OF THE OPERATOR'S SELECTION 


sSAVE GENERAL REGISTERS 


RO,R2 sSAVE THE MENU ADDRESS 

R2,R3 sSTART OF MENU STRING 

(R3) sENO OF ASCII ? 

38 sBRANCH IF ALi LINES DISPLAYED 


sOISPLAY THE MENU 


C7 


- GL M J . 
de¥Eec “RSG E™AEiy anal BEP°OBEAM Ton ReEBBiGe 1714 s€0 000 
020306 104417 TRAP CSPNTF 
020310 062706 000006 ADD 46,SP 
2631 920314 000764 BR es 
2632 020316 38; GMANID MENASC,MENRES,D,-1,0,-1,NO 
020316 104443 TRAP C8GMAN 
020320 000406 BR 100018 
020322 020476 -WORD MENRES 
020324 000042 . WORD TSCODE 
020326 47 -WORD MENASC 
020330 177777 WORD -1 
020332 -WORD TSLOLIM 
020334 177777 .WORD TSHILIM 
020336 100018: 
2633 020336 BNCOMPLE TE 18 sRETRY IF ERROR 
020336 103352 BCC 1s 
2634 020340 013700 020476 MOV MENRES ,RO sGET THE OPERATOR'S REPLY 
2635 020344 020001 CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
2636 020346 101411 BLOS 53 ;BRANCH IF OK 
2637 020350 PRINTF @MENERR sOISPLAY ERROR MESSAGE 
020350 012746 020374 MOV @MENERR , -( SP) 
020354 012746 000001 MOV #1.- ) 
020360 010600 MOV SP ,RO 
020362 104417 TRAP CSPNTF 
020364 062706 000004 ADD @4,SP 
2638 020370 000735 ’ BR 18 sRETRY 
2639 020372 000207 S$: RTS PC sRETURN TO CALLER 
2640 020374 045 116 045 MENERR: .ASCIZ ‘SNSA eee Menu Selection Too Large ese’ 
2641 020442 045 116 045 SELASC: .ASCIZ ‘sNsT’ 
ory | 020447 105 156 164 MENASC: Sonar ‘Enter Menu Selection: ° 
EV 
2644 020476 000000 MENRES: -WORD O 
aan -SBTTL CHKMPN - CHECK MANUAL INTERVENTION LEGALITY 
3¢ 
2647 : 
4 sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
3 
2650 3 INPUT: 
2651 Fy 
2652 3 NONE . 
2653 ; 
2654 sOUTPUT: 
2655 ; 
2656 3 CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
oore 3 1 MANUAL INTERVENTION IS OK 
3 
2659 sSIDE EFFECTS: 
2660 _ 3 
2661 3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
2662 3 NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
2663 3 ALLOWED. 
2664 : 
2665 ; 
2666 
2667 020500 CHKMAN: ; 
2668 020500 SAVREG sSAVE THE REGISTERS 
2669 020504 MANUAL 3SEE IF MANUAL INTERVENTION OK 


020504 104450 TRAP CSMANI 


CaN Ran OBA RP AAR uaL 


2670 020 


2671 


103411 


012746 
012746 


012746 
ie) 


INPERGENHEAR LeBat'GRsO* 17:04 


BCOMPLETE 18 
BC 


020534 


116 


003124 
000002 
003126 
000004 
002012 
000007 


003124 
003126 
000002 
003130 


177520 
000002 
016376 


177520 
000001 
177520 
177520 


003144 
170000 


005554 
000001 


000004 
003146 


045 


003124 
003126 
003126 


002120 


D7 


‘SNBA e0¢ Manual Intervention not Allowed - 
- SETUP FREE DIAGNOSTIC SPACE 


SEQ 081 


sBRANCH IF ALLOWED 
sPRINT THE WARNING MESSACE 


sCLEAR CARRY FOR ERROR 
RETURN 


SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


S 18 

PRINTF @NOMAN 
MOV @NOMAT, -( SP) 
MOV 1, -(SP) 
MOV SP; RO 
TRAP =: C8PNTF 
ADD 64,SP 
cLC 

18: RTS PC 

NOMAN: .ASCIZ 
even 
.SBTTL ENVIRN 

3 

3 SUBROUTINE TO 

o 

ENVIRN: MEMORY RO 
TRAP C$MEM 
MOV RO, FREE 
ADD 62. FREE 
MOV (RO), FRESIZ 
SUB 04, FRESIZ 
MOV LSUNIT,R2 

10$: SUB 67, FRESIZ 
OEC Re 
BNE 108 
MOV FREE ,RO 
ADD FRESIZ,RO 
SUB €2,R0 
MOV RO, FREEHI 
NOP 
MOV eBDVPCR,R1 
MOV R1,R2 
ADD @2,R2 
JSR PC. XNXM 
6CcC 158% 
BR 403 

158; MOV BOVPCR, Ri 
ADD 1,R1 
MOV eBDVPCR,R2 
INC (R2) 
MOV BDVPCR,R3 
CMP Ri,R3 
BNE 208 
INC T23A 
BIC 0170000,L $HIME 
NOP 
PRINTF 0M8186 
MOV 08186, -(SP) 
MOV 41 . -(SP 
MOV SP‘R 
TRAP = CSPNTF 
ADD 04,SP 
BR 403 

208: INC 1238 
NOP 


s GET 1ST FREE ADDRESS... 
s...AND WORD COUNT. 


s GET NUMBER OF UNITS 
3s TAKE AWAY 7 WORDS PER UNIT 


sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sGACKUP 1 WORD 

2» STORE LAs? FREE ADDRESS 
FSSSSSHASSSSSSHESHSEHASHHEEHSEEEEEEHOEEEEASE 
sGET BOV11 PCR ADDRESS 
s;COPY TO R2 

3SET THE RANGE 

3SEE IF WE HAVE ONE 

30K TO SET FLAGS 

sRETURN WITH FLAGS CLEAR 
3SAVE PCR CONTENTS 

sADD ONE TO IT 

3GET BOV11 PCR ADDRESS 

:TRY TO WRITE TO IT 

3GET RESULTS 

3s0IO IT CHANGE? 

3sNO, MUST Ay 117238 

iSET THE FLAG 


sSUPERVISOR COULD BE WRONG 
3BR 40% FOR RELEASE 
sTELL THE SYSTEM TYPE 


sRE TURN 
3SET THE FLAG 
3BR 408 FOR RELEASE 


Test Aborted eee’ 


TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 SEQ 082 
ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
2715 021032 PRINTF M8189 sTELL THE SYSTEM TYPE 
021032 012746 005645 MOV M8189, -(SP) 
021036 012746 000001 MOV 1, -(SP) 
021042 010600 MOV SP ,RO 
021044 104417 TRAP CSPNTF 
021046 062706 000004 ADD 04 ,SP 
2716 021052 000207 40$: RTS PC sRETURN 
eile -SBTTL KTINIT - SETUP KT1i1 MEMORY MANAGEMENT REGISTERS 
3° 
2719 3 
2720 sROUTINE TO INIT KT-11 
2721 3 
2722 3° 
2723 
2724 021054 KTINIT: 
2725 021054 005037 003132 CLR KTFLG 3; INIT >28K MEMORY FI.AG 
2726 021060 005037 003134 CLR K TENABLE 3 INIT TEST >28K FLAG 
2727 021064 023727 002120 001577 CMP LSHIME , 01577 3 GOT ENOUGH MEMORY ( >28K 5? 
2728 021072 101444 BLOS 93 3: NO. 
2729 021074 013700 000004 MOV BOERRVEC , FO : SAVE OLD ERR VEC PTR. 
2730 021100 012737 021172 000004 MOV 02% ,Q@ERRVEC 3s SET ERR VEC PTR. 
2731 021106 005737 177572 TST B4SRO 3 GOT KT11i? 
2732 021112 000240 NOP s (CTRAP IF NO). 
2733 021114 013737 002120 003132 MOV LSHIME ,KTFLG s YES. SET KT FLAG. 
2734 021122 042737 000177 003132 BIC @177,KTFLG 3 
2735 021130 010037 000004 MOV RO, S@ERRVEC s RESTORE OLD ERR VEC PTR. 
2736 021134 005000 CLR RO 3 RO = AR DATA. 
2737 021136 012701 172340 MOV @KIPARO,R1 3; R1 - KI REGS PTR. 
2738 021142 012761 077406 177740 18: MOV #77406,-40(R1) ; SET DESCRIPTOR REG. 
2739 021150 010021 MOV RC,CR1)> s SET KIPAR REG. 
2740 021152 062700 000200 ADD #200 ,RO 3 BUMP AR DATA BY "4k", 
2741 021156 020027 002000 CMP RO, #2000 3 AT “I/0"? 
2742 021162 001367 BNE 18 : NO. 
2743 021164 012741 177600 MOV #177600, -(R1) : YES. SET KTPAR7 FOR I/O. 
Samed 021170 000405 BR 9$ 
2746 021172 012716 021200 28: MOV 96%,(SP) 3 SET UP RETURN 
dnd 021176 000002 RTI 3 RTI TO NEXT LOCATION 
Eres 021200 010037 000004 68: MOV RO, BOERRVEC ; RESTORE OLD ERR VEC PTR. 
eras 021204 000207 9$: RTS PC 
3¢ 
ks 3 SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
3 
rae 3 Requires tnat SOFINIT and WRICHR nave been done previous to call. 
3 
2757 3 
2758 3s INPUTS: 
2759 3 RS CURRENT UNIT NUMBER 
2760 ;OUTPUTS: 
2761 3 Tne Extended Features Switch is set. 
2762 3 
2763 a” 
2764 
2765 021206 INVERT: : 


F7 


TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 SEQ 083 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2767 021206 005737 002226 TST EXTFEA s IS SWITCH SET? 
2768 021212 001020 BNE 1% s YES,EXIT STAGE RIGHT! (or the next one outa town! ) 
2769 021214 012737 100206 021260 MOV #100206 , CMDPKT s WRT SUB-SYS MEM CMD 
2770 021222 012737 021270 021262 MOV OWSMBK , CMDPKT +2 s MSG BUF ADDR 
2771 021230 012737 000006 021266 MOV 06 , CMOPKT +6 1 BYTE COUNT 
2772 021236 012737 100010 021270 MOV #100010, WSMBK + INVERT THE SWITCH 
2773 021244 012704 021260 MOV OCMDPKT ,R4 s SET CMOPKT INTO R4 
2774 021250 004737 010662 JSR PC, WRTCHR ; 00 IT 
he 021254 000207 18; RTS PC : RETURN 
or ’ COMMAND PACKET. 
2 
the 021260 ‘ s <.¢3>E177774 sMUST BE ON MOD 4 BOUNDRY. 
2781 021260 000000 CMOPKT:: O 31ST WORD IS TSOS COMMAND. 
2782 021262 000000 0 32ND WORD IS THE BUFFER LOW ADDRESS. 
2783 021264 000000 0 33RD WORD IS THE BUFFER HIGH ADDRESS. 
the 021266 000000 0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 
thy; 3 WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
2788 021270 000000 WSMBK:: O 31ST WORD:: SEL O 
2789 021272 000000 0 32ND WORD:: SEL 2 
2790 021274 000000 0 33RD WORD:: SEL 4 
2791 -EVEN 
2792 3° 
eres F SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
3 a 
2795 : 
2796 s INPUTS: 
2797 sOUTPUTS: 
2798 : The NXMFLG is set if we can test. 
bee, : Tre NXMLO and NXMHI addresses sre setup. 
ied 
2801 
2802 021276 MEMCK: : 
2803 
2804 021276 SAVREG sSAVE THE REGISTERS 
2805 021302 005037 003136 CLR NXMFLG sCLEAR THE FLAG 
2806 021306 005037 003140 CLR NXMLO sCLEAR THE TEST ADDRESS LO 
2807 021312 005037 003142 CLR NXMHI ;CLEAR THE TEST ADDRESS HI 
2808 021316 005737 003146 TsT T238 3IS IT A 11/7238? 
2809 021322 001407 BEQ 1$ NO 
2810 021324 023727 002120 007777 CMP LSHIME , 07777 3: GREATER THAN 128K 
2811 021332 103406 BLO 2s 3; NO 
2812 021334 004737 021452 JSR PC ,.NXMTST :SETUP THE ADDRESS 
2813 021340 000427 BR 13% ;SET THE FLAG AND EXIT 
2814 021342 005737 003144 1$: TST T23A :IS IT A 11/23A? 
2815 021346 001413 BEQ 4$ 3NO 
2816 021350 023727 002120 005777 2%: CMP LSHIME , 05777 sGREATER THAN 96K 
2817 021356 101023 BHI 14$ sYES,234/238 WITH 128K MEMORY 
2818 021360 023727 002120 003777 CMP LSHIME , 03777 sGREATER THAN 64K BUT LESS THAN 92K? 
2819 021366 103403 BLO 4% 3NO, CHECK 24K 
2820 021370 004737 021452 JSR PC,NXMTST sSETUP THE ADDRESS 
2821 021374 000411 BR 13$ 3SET THE FLAG AND EXIT 
2822 021376 023727 002120 001577 4%: CMP LSHIME , 01577 sGREATER THAN 24K BUT LESS THAN 68K? 


2823 021404 103410 BLO 1438 sNO, TELL THEM AND EXIT WITH FLAG CLEAR 


TSV3_- GLOBAL AREAS 


KTINIT 


MACRO M1113 


G/ 


06 -FEB -84 girae 


- SETUP KT11 MEMORY MANAGEMENT REGISTER 


021452 
021456 
021462 
021466 


021504 


021534 
021540 
021544 


021546 


013701 


010137 
000012 


042702 
010237 
000207 


177700 
003142 


JSR PC ,NXMTST 


SEQ 084 


sSETUP THE ADDRESS 


ADD 077 ,NXMHI sFOOL THE 11702 € 11703 
13$: I NXMFLG sSET THE FLAG 
BR 15$ sEXIT 
14%; BR 15% sNOP FOR PRINTOUT 
PRINTF sTELL THEM & EXIT #eeNO PRINTesees 
V M,-CSP) 
MOV #1,-(S ) 
MOV SP, 
TRAP CSPNTF 
ADD 04, 
15$: RTS PC ;RETURN 
3¢ 
2 SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 


; 
3 OUTPUTS : NXMLO,N¥MHI 
; 

g° 


NXMTST: MOV L$HIME ,R1 
ADD 


#209,R1 

BIC #177,R1 
-REPT 6 
ASL R1 
-ENOR 

V R1,NXMLO 
-REPT 10. 
ASR Re 
.ENOR 
BIC #177700,R2 
MOV R2,NXMHI 
RTS PC 


sSETUP WITH NXM ADDRESS 


sGET TOP OF MEMORY 
sMAKE IT I70 BLOCK OR OTHER NXM 


sRESAVE RESULTS 
sPUT IN PLACE FOR XFER 
sSAVE TEST ADDRESS LOw 
sPUT IN PLACE FOR XFER 
sDON’'T WANT ILA! 


sSAVE TEST ADORESS HIGH 
sRETURN 


H? 


TSV4_- MISCELLANE SECTIONS MACRO M -FEB-84 17:14 SEQ 08S 
KTINIT - SETUP KVii MEMORY MANAGEMENT RbdEs res ; 


: -TITLE TSV4 - MISCELLANEOUS SECTIONS 


9 021546 BGNMOD TSV4 
- 021546 TSV4:: 


TSV4_- MISCELLANEOUS SECTIONS MACRO M1113 06-FEB-84 17:14 SEQ 086 
PROTECTION TABLE 
17 .SBTTL PROTECTION TABLE 
18 021546 BGNPROT 
021546 LSPROT: : 
19 021546 177777. 177777 «177777 WORD -1, -1, -1, -1 :NO DEVICE PROTECTION REQUIRED. 


20 021556 ENDPROT 


J/ 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 06-FEB-84 17:14 SEQ 087 
INITIALIZE SECTION 
23 -SBTTL INITIALIZE SECTION 
24 
25 1 THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
> or THE BEGINNING OF FACH PASS. 
28 VIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
+4 :IF “CONTINUE”, NOTHING IS REQUIRED. 
31 8-- 
32 3° 
+ :; INSERT TEMPORARY JUMP TO ODT 
—- 
35 021556 BGNINIT 
021556 LSINIT:: 
36 021556 005037 002226 40%: CLR EXTFEA 
37 021562 005037 003136 CLR NXMFLG 
38 021566 012737 006360 002200 MOV GEPRT1,EPRTSwW ;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
39 021574 005037 003154 CLR SIFLAG ;CLEAR “SOFT INIT” FLAG 
40 021600 005037 003134 CLR K TENABLE ;CLEAR TEST ABOVE 28% FLAG 
41 021604 005037 002302 CLR RAMSIZ ;CLEAR RAM SIZE FOR RAMERR ROUTINE 
42 021610 READEF #€F .CONTINUE 
021610 012700 000036 MOV OEF . CONTINUE ,RO 
021614 104447 TRAP CSREFG 
43 021616 BNCOMPLETE 1% 
021616 103023 BCC 1% 
44 021620 023737 002202 002012 CMP UNITN,LSUNIT sUNIT IN RANGE? 
4S 021626 103070 BHIS 4s ;B8R IF NO. 
46 021630 005737 003112 TsT OUFLG ;OROPPED UNIT? 
47 021634 100472 BMI NXTU ;BR IF YES 
48 021636 013701 002202 MOV ene 
49 021642 006301 ASL R1 
SO 021644 005761 003176 TST ERTABL(R1) 
51 021650 001516 BEQ SETU 
S2 021652 032761 040000 003176 BIT 61714 ERTABLCRL) ;DROPPED? 
53 021660 001060 BNE 
54 021662 ExIT INE? ;D0 NOTHING IF “CONTINUE”. 
021662 104432 TRAP CSEXxIT 
021664 000416 -WORD 110030- 
55 021666 1%: READEF O€F .NEW 
021666 012700 000035 MOV O€F .NEW,RO 
021672 104447 TRAP CSREFG 
56 021674 BNCOMPLETE NXTU 3; TAKE NEXT UNIT IF NOT NEw PASS. 
021674 103052 BCC NXTU 
57 021676 i READEF o€F .START 
021676 012700 000040 MOV EF .START,RO 
021702 104447 TRAP CSREFG 
58 021704 BCOMPLETE 28 
021704 103404 BCS es 
59 021706 READES #€F .RESTART 
021706 012700 000037 MOV EF .RESTART,RO 
021712 104447 TRAP CSREFG 
60 021714 BNCOMPLETE 31$ 
021714 103031 BCC 318 
61 021716 2s: ;1ST yt hpi INIT. 
62 021716 BRESET ;BUS RESET 


021716 104433 TRAP CSRESET 


TSv4 


INITIALIZE SECTION 


021720 
021724 
021730 
021734 


021740 
021744 
021744 
021752 
021756 
021762 
021766 
021770 
021774 
021776 
022000 
022004 


005037 
005037 
005037 
005037 


005037 


012737 
004737 


005037 


023727 
101752 
005737 
001747 


104421 
032700 
001543 


104424 
000741 


013700 
104442 


103342 
005037 
005237 
022001 
010137 


- MISCELLANEOUS SECTIONS 


002214 
002222 
0035144 
003146 


003400 
177777 
020630 
021054 
003176 
003376 


002204 
022054 


177777 
002220 


002202 
002202 
177777 


002012 


002220 


000100 


002202 


003112 
002220 


002206 


MACRO M1113 06-FEB-84 17:14 


002204 


002202 


002012 
003112 


000001 


4$: 
NEWPAS: 


NXTU: 


11$- 


Pi LAPT; 


10%: 
SETU: 


CLR TSTCNT 
CLR FATFLG 
CLR T23A 
CLR T238 
MOV @20%, (SP) 
JMP 0.00T 
CLR SKIPT 
MOV #-1,QvP 
JSR PC, ENVIRN 
JSR PC,KTINIT 
MOV GERTABL RO 
CLR CRO)> 
CMP RO, OERTABE 
BLO 30 
BR 4s 
CiLR ave 
JMP PASRPT 
MOV @-1,UNITN 
CLR DEVCNT 
RREAK 
TRAP CsBRK 
INC UNITN 
CMP UNITN,LSUNIT 
BLO SETU 
MOV & 1 OUFLG 
BR 11$ 
DOCLN 
TRAP CS$DCLN 
NOP 
CMP LSUNIT, 41 
BLOS NEWPAS 
TST DEVCNT 
BEQ NEWPAS 
RFLAGS RO 
TRAP CSRFLA 
BIT #ISR,RO 
BNE NEWPAS 
DORPT 
TRAP CSORPT 
BR NEWPAS 
GPHARD UNITN,RO 

V UNITN,RO 
TRAP C$GPHRD 
BNCOMPLETE NXTU 
Bcc NXTU 
CLR OUFLG 
INC DEVCNT 
MOV CRO)+,R1 
MOV Rl, CSRAUDR 


SEQ 068 


sNUMBER OF TESTS RUN IN PASS 
sCLEAR FATAL ERROR COUNT 
sCLEAR 11/23A FLAG 

sCLEAR 11/238 FLAG 


sRETURN TO DEBUGGER 


+ ;Q@BENTER THE DERUGGER 
sCLEAR THE SUBTEST “SKIPPER” 


.QUICK VERIFY, 
Set ENV [RONMENT . 
sINITIALIZE KT MEMORY MANAGEMENT 


s;CLEAR THE ERROR TABLE 


3GO REPORT THE STATUS 


sINIT UNIT NUMBER. 
;CLEAR COUNT OF DEVICES RUNNING 


..AND SET NEXT UNIT NUMBER. 


;ABORT, NO MORE UNITS. 


;HOW MANY UNITS SELECTED? 
;B8R IF ONLY 1 

;ARE ANY STILL RUNNING? 
3;BR IF NO 


;SHOULD WE PRINT STATISTICS 
:BR IF NO 


;GET UNIT N P-TABLE POINTER. 


;BR IF UNIT NOT AVAILABLE. 
;CLEAR “DROPPED” FLAG. 
;GET 1ST REGISTER ADDRESS 


:ADDRESS OF REGISTERS OF UNIT UNDER TEST 


TSV4 


INITIALIZE SECTION 


022134 


022156 
022142 
022146 


022152 


022152 


022274 


022274 
022274 
022300 
022302 
022302 
022302 


022304 


012001 


010137 
012721 
013721 


013701 


101416 
104421 


032700 | 


001412 


013746 
012746 


012737 


012700 
104441 


104411 
045 


- MISCELLANEOUS SECTIONS 


002210 
016216 
002212 


003114 
002206 


000002 
016376 


003114 
177777 


116 


L/ 


MACRO M1113 06-FEB-84 17:14 


MOV CRO)+,R1 
:MOV (RO),R2] 
;MOV R2,IPRI 
MOV R1,IVEC 
MOV @iNTR, CR1)>+ 
MOV IPRI, (R1)+ 

1$: 

F TST QvP 

F BEQ 5$ 


SEQ 089 


sGET VECTOR ADDRESS. 

sGET INTERRUPT PRIORITY 

+SET INTERRUPT PRIORITY 

iSET INTERRUPT VECTOR POINTER... 
- VECTOR. 
“AND PRIORITY. 


31ST PASS ?? 
3NO, 


SKIP THE PASS 1 STUFF. 


; 
31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
3 THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


sSAY DEVICE RUNNING 

;CLEAR ERROR EXTENSION FLAG. 
sARE WE TESTING MULTIPLE UNITS? 
BR IF NO. 

sYES -- GET OPERATOR FLAGS. 


;SHOULD WE PRINT UNIT 9? 
7BR IF NOT. 
sPRINT THE UNIT @ 


sADDRESS OF FIRST REGISTER 
sSTART OF REGISTERS 
sADDRESS OF TSSR REGISTER 


sTEST BOTH CONTROLLER REGISTERS... 


;...AND BR IF ALL OK. 
sFLAG DEVICE AS NON-EXISTENT 
;DROP THIS UNIT. 


sENABLE INTERRUPTS, 


MOV UNITN,R1 
ASL R1 
003176 BIS OBIT15,ERTABL(R1) 
CLR EXTA 
000001 cMP LSUNIT,@1 
BLOS 10$ 
RFLAGS RO 
TRAP CSRFLA 
BIT OPNT ,RO 
BEQ 10$ 
PRINTF @PUNIT,UNITN 
MOV UNITN, -(SP) 
MOV OPUNIT, -C SP) 
MOV #2,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 96, SP 
108: 
CLR Vv 
MOV CSRADOR ,R1 
MOV R1,R2 
ADD @TSSR,R2 
JSR PC, XNXM 
BCC 2s 
MOV R1,NODEV 
003112 MOV @-1,D0UFLG 
2s: 
o 
sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 
o 
5$; SETPRI #PRIOO 
MOV #PRIOO ,RO 
TRAP CsSPRI 
ENDINIT 
L10030: 
TRAP CSINIT 
045 PUNIT: /SNGNBAseeee TESTING UNIT SD2S8A sence’ 


-ASCIZ 
-EVEN 


38" nic" BASS-LANYO Se ESAR™® 


194 


022420 


022446 
022446 
022446 


022520 


022522 


104452 


012737 
010001 


100000 
040000 


022420 
000002 


000006 


116 


177777 


140000 
000240 


022524 
000002 


000006 


M7 
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003176 
003176 


045 


003112 


003176 
000240 


-SBTTL ADD AND DROP UNITS SECTIONS 


Td 
; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEvict® 
; TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

; OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 

— 


BGNAU 
LSAU:: 
MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
ASL R1 ; MAKE IT A WORD INDEX 
BIS #100000 ,ERTABL(R1) ; SET THE “ACTIVE” BIT 
BIC #40000 ,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
PRINTF @1$,RO 
MOV RO, -CSP) 
MOV #18, -(SP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
A #6, SP 
EXIT AU 
WORD J$JMP 
-WORD 1L10031-2-. 
1$: -ASCIZ /sNSA UNIT SOSA ADDED/ 
.EVEN 
ENDAU 3; UNUSED. 
L10031 
TRAP CsAU 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


‘ 
: 
; 
° 
; SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
; COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
; WHICH ARE STILL ACTIVE. 
; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


L$ 
MOV #-1,DUFLG 
MOV RO,R1 
ASL R1 
BIS #140000 ,ERTABL(R1) + SAY DROPPED 
240,240,240 3s 222222222 
PRINTF @1$,R0 
MOV @1$,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 6 ,SP 
EXIT DU 
-WORD J$JMP 


«WORD 1L10032-2-. 


TSv4 
ADD 


- MISCELLANEOUS e¥eoae® 
AND DROP UN TIONS 


022524 


022554 
022554 
022554 


ITS SE 
045 


104453 


013705 
012703 
004737 
103420 


012727 
000000 


177772 
177756 


017202 


MACRO M1113 06- 


N7 


FEB-84 17:14 SEQ 091 


045 18; -ASCIZ /sSNSA UNIT DSA DROPPED/ 
.EVEN 
E 
L10032: 
TRAP CsDu 
zee 
; AUTO-DROP COLE SECTION. 
3 -- 
BGNAUTO 
LSAUTO:: 
MOV CSRADOR ,RS sPOINT TO DEVICE REGISTER 
MOV #360. ,R3 sENOUCH TIME FOR 2400' REEL TO REWIND 
10$; JSR PC ,WAITF sWAIT FOR SSR TO SET 
bcs 20$ ;LEAVE WHEN SSR IS SET 
DELAY 250. sWAIT FOR .25 SECONDS 
MOV #250. ,€PC)-+ 
-WORD O . 
MOV  $DLY,C(PC)>+ 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
DEC R3 sBUMP COUNTER DOWN 
BNE 10$ sKEEP GOING 
one JSR PC ,CKDROP :TRY AND DROP UNIT 
ENDAUTO ; UNUSED. 
L10033;: 


TRAP CsAUTO 


TSv4 


CLEAN 


022776 


- MISCELLANEOUS SE 
-UP AND REPORT COD 


013705 
005737 
100405 


012765 
004737 


104412 


012746 
012746 


010346 
012746 


002206 
003112 


000000 
016250 


023126 
00000 


040000 
170000 


023163 
00C00 3 


000010 
160000 


0235235 


B8 


MACRO M1115 06-FEB-84 17:14 
IONS 


SEQ 092 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


iad 

’ THE CLEANUP CODING SECTION CONTAINS THE Frees THAT IS 
s EXECUTED AT THE END OF EACH PASS (CR SUB-PASS 

s USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL State, 


BGNCLN 
LSCLEAN:: 

MOV CSRADOR RS 

TST DUFLG 

BMI 13 

MOV 00, TSSR(RS) 
a JSR PC. WAITF 
28: ENOCLN 
L10034: 


TRAP CSCLEAN 


sPOINT TO Sr REGISTER 
ne FLAG IS SET ON. 
. AND ae = CONTROLLER FAULT. 
.DON'T TRY TO XCT CLEANUP CODE. 


s00 SOFT INIT 


gee 
s THE REPORT CODING SECTION CONTAINS THE 
: “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


ge-- 
LSRPT:: 


18: 


es: 


BGNRPT 


PRINTS @DEVSUM 
MOV ee (SP) 
mov #1 ° -¢ SP) 


MOV @ERTABL ,R4 
CLR R3 

MOV (R4),R2 
BEQ ag 

BPL 


43% 
BIT > alles 
BIC @*C7777,R2 


W 2.-¢ 
MOV R3, -(SP) 
MOV @DEVONL , -( SP) 
MOV @3, -C 
MOV SP ,RO 


6R 4t 

CMP R2,160000 
SNE 

PRINTS @DEVNXR,RS 
MOV R3, -(SP) 


MOV ODE VNXR, -( SP) 


GET START OF ERROR TABLE. 

CLEAR UNIT NUMBER 

GET ERROR TABLE ENTRY €& TEST IT. 
ZERO IF UNIT NOT RUN 


WAS ~*~ DROPPED ? 

BR IF YES 

GET ERROR COUNT FIELO 
PRINT 


WAS. a NON-EXISTENT? 
BR IF 


C8 


TSV4 - MISCELLANEOUS SE LIONS. rome RO M1113 06-FEB-84 17:14 SEQ 093 
CLEAN-UP AND REPORT CODING SEC’ ONS 
023002 012746 000002 MOV @2,-(SP) 
023006 010600 MOV SP ,RO 
023010 104416 TRAP CSPNTS 
C23012 062706 000006 ADD 6, SP 
252 023016 000431 BR ae 
253 023020 020227 160001 3%; CMP R2,0160001 s WAS UNIT NOT READY AT STARTUP? 
254 023024 001012 SNE 30% s BR IF NO. 
255 023026 PRINTS @DEVNRD,RS 
023026 010346 MOV R3, -(SP) 
023030 012746 023315 MOV @DEVNRD, -( SP) 
023034 012746 000002 MOV #2, -(SP) 
023040 01600 MOV SPR 
023042 104416 TRAP CSPNTS 
023044 062706 000006 ADO 66, SP 
256 023050 000414 BR 4% 
257 023052 042702 170000 3038: BIC @tC7777,R2 
258 023056 PRINTS @#DEVDRO,RS,R2 
023056 010246 MOV R2,-(SP) 
023060 010346 MOV R3, -(SP) 
023062 012746 023376 MOV @DEVORO, -( SP) 
012746 0000035 MOV @3,-(SP) 
023072 010600 MOV SP ,RO 
023074 104416 TRAP CS8PNTS 
023076 062706 000010 ADD #10,SP 
259 023102 062706 000002 4%: ADD @2,R4 
260 023106 005203 INC R3 
261 022110 020427 003376 CMP R4, OERTABE 
262 023114 10370: BLO i$ 
263 023116 012604 MOV (SP )+,R4 
264 023120 012603 MOV (SP)+,R3 
265 023122 012602 MOV (SP )+,R2 
266 023124 ENORPT s UNUSED 
023124 L10035: 
_— 023124 104425 TRAP CsRPT 
268 023126 045 116 04S DEVSUM: .ASCIZ eee STATUS SUMMARY : @N/ 
269 023163 045 101 040 DEVONL: .ASCIZ /SA UNIT SD3SA ONLINE, ERRORS = SOSN/ 
270 023233 045 101 040 DEVNXR: .ASCIZ por UNIT S038A DROPPED, NON-EXISTENT REGISTERSN/ 
271 023315 045 101 040 DEVNRD: .ASCIZ /#A UNIT SD3SA OROPPED, NOT READY AT STARTUPSN/ 
Se 023376 045 101 040 DEVORO: ity /$A UNIT SD038A DROPPED, ERRORS = SDSN/ 
EV 
274 
275 023446 ENDMOD 


D8 
Cet Rn UP ARB"REPORY "Coo rNBPcHHAAS Of FEB-84 17:14 


H -TITLE TSVS - HARDWARE TESTS 
9 
10 023446 BGNMOD TSv5 

023446 TSV5:: 


16 


24 


SEQ 094 


TSVS 


77 
78 


- HARDWARE TESTS 
TEST 1: 


MACRO M1113 


06 -FEB -84 


INITIALIZE AFTER WRITE CHARACTERISTICS 


023572 
023576 


012737 
004737 
012703 


012704 
012764 


924102 
016510 
000012 
024356 
002764 
024040 
000010 


015774 


002222 
000000 
016336 


002222 


002216 


000006 


oe @f ae 2 GF Gr Ge Ge Gs Ge Ge GF Ge Ge oF oe oF os 
° 


E8 


17:14 


-SBTTL TEST 


TEST DESCRIPTICN: 


This test verifies that ea 


SEQ 095 


1: INITIALIZE AFTER WRITE CHARACTERISTICS 


Hardware Initialize command 


invoked after ea Write Gnarectertoties command sets up 
the Command, Message and Characteristic image blocks 


in the controller rem correctly. 
TEST STEPS: 


REPEAT FOR LOOPCNT 
BEGIN 


Do WRITE CHARACTERISTICS command. 


If the 
Write to TSSR r 
If centroller R 


T13L00°; 


5$: 


ENO 
BGNTST 
MOV @TST13I0,RO 
JSR PC, TSTSETUP 
MOV #10. ,LOOPCNT 
JSR PC, TISREST 
MOV @TSTBLK+10. ,R3 
MOV @TLSPACKET ,R4 
MOV 08. ,PKBCNT(R4) 
JER PC, SOF INIT 
BCS 10% 
MOV RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 


sDo WRITE CHARACTERISTICS command. 
10% R FATFLG 


3 cL 

MOV R4,TSOBCRS) 
JSR PC,CHKTSSR 
FORCERROR 12s 
6cs 15% 
MOV RO,R1 
NEXT. ERRNO 

128: ERROF ERRNO, T13SSR,PKTSSR 
INC FATFLG 

153; CKLOOP 


Tl:: 
sASCII MESSAGE TO IDENTIFY TEST 


300 INITIAL TEST SETUP 
sPERFORM 10 ITERATIONS 


15€T PACKET TO START-UP VALUES 


+START OF TEST DATA 


NBA bit in the TSSR register is NOT*0 then Print Error. 
ister to soft initialize the controller 
310-377 NOT=0 then Print Error 


sGET THE ADORESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


sWRITE TO TSSR TO + og INITIALIZE 


;BR IF SOFT INIT OKA 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL DURING ee 


sCLEAR FATAL ERROR FLAG 


CSEROF 
00 


1 
SFIERR 
SF IMSG 


sSET THE PACKET ADDRESS TO EXECUTE 


sWAIT FOR SSR TO SET 


ORCE ERROR IF FORCER=1 


3 880F 
BR IF CARRY SET (GOOD RETUR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


T13SSR 
PKTSSR 


F8 


TSVS - HARDWARE TESTS MACRO M1113 06- 47 F 84 17:14 SEQ 096 
TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 

023576 104406 TRAP CsCLP1 

79 023600 016501 000002 MOV TSSRCRS),R1 sGET THE CONTENTS OF TSSR 

80 023604 012702 000200 MOV @SSR,R2 sEXPECTED CONTENTS OF TSSR 

81 023610 032701 000100 BIT OOFL RL sIS OFF-LINE BIT SET ? 

82 023614 001402 BEQ 25% sBRANCH IF NOT OFF-LINE 

+ 023616 052702 000100 BIS OOFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

85 iIf the NBA bit in the TSSR register is NOT=0 then Print Error. 

86 023622 258: 

87 023622 FORCERROR 27$ 3880 

88 023636 020201 CMP R2,R1 sD0ES EXPECTED MATCH RECEIVED ? 

89 023640 001404 BEQ 30$ sOKAY IF MATCH 

90 023642 NEXT. ERRNO 

91 023642 278; ERRHRD ERRNO, T13NBA,PKTSSR sNBA NOT ZERO 
027642 104456 TRAP CSERHRD 
023644 000146 WORD 102 
023646 024214 WORD T13NBA 
023650 012046 WORD PKTSSR 

92 023652 308: CKLOOP ;LOOP ON ERROR ? 

os 023652 104406 TRAP CSCLP1i 

34 sWrite to TSSR register to soft initialize the controller 

95 023654 40$: 

96 023654 004737 015774 JSR PC,SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

97 023660 FORCERRCR 42$ 3 

98 023674 103405 BCS 50$ 3BR IF SOFT INIT OKAY 

99 023676 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

100 023700 NEXT .ERRNO 

101 023700 423; ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL DURING INIT 
023700 104455 TRAP CSEROF 
023702 000147 «WORD 103 
023704 003652 -WORD SFIERR 

_ 023706 012034 -WORD SFIMSG 

103 ee controller RAM 310-377 NOT=0 then Print Error 

104 023710 012704 000310 50$ MOV @310,R4 sSTART WITH LOC 310 

105 023714 005002 CLR R2 sMEMORY EXPECTED SHOULD BE 000000 

106 023716 105065 000000 CLRB TSOBCRS >) 3SET MAINTENANCE MODE 

107 023722 004737 016336 JSR PC. CHKTSSR sWAIT FOR SSR READY 

108 023726 010465 000000 608: MOV R4, TSOBCRS) ;SELECT RAM ADORESS 

109 023732 004737 016336 JSR PC. CHKTSSR sWAIT FOR SSR READY 

110 023736 116501 000000 MOVB TSBACRS),R1 sREAD LOC CONTENTS 

111 023742 FORCERROR 62$,.NOTSSR 3880 

112 023752 120102 CMPB R1,R2 sCHECK MEMORY FOR 000000 

113 023754 0601406 BEQ 70$ ;BRANCH IF DATA OKAY 

114 023756 NEXT. ERRNO 

115 023756 628: ERROF ERRNO, T13MEN,RAMEXP sMEMORY NOT ZERO AFTER INIT. 
023756 104455 TRAP CSERDF 
023760 000150 -WORD 104 
023762 024155 ’ . WORD T1L3MEM 
023764 015530 -WORD RAMEXP 

116 023766 005237 002222 INC FATFLG ;SET THE FATAL ERROR FLAG 

117 023772 70$: CKLOOP 
023772 104406 ’ TRAP CSCLPL 

118 023774 ESCAPE TST sEXIT ON FATAL ERROR 
023774 104410 TRAP CSESCAPE 


023776 000426 -WORD L110036-. 


TSvS 
TEST 


1: 


159 024155 


- HARDWARE TESTS 
INITIALIZE AFTER WRITE CHARACTERISTICS 


024000 
024002 
024006 


005204 
020427 
001347 


024010 
024014 


005737 
001402 
004737 
004737 
103002 
000137 


104432 
000366 


024102 111 


111 


127 
103 


024214 
024267 


024356 
024356 
024362 
024 566 


012701 
012721 
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000400 


002222 


017202 
016456 


023464 


122 
157 


024040 
100004 


151 
143 


111 
156 


32s: 


1608; 


1658: 


G8 


R4 
R4, #400 
60$ 


FATFLG 
160$ 

PC ,.CKDROP 
PC, TSTLOOP 
165% 
T13L00P 


TsT 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


6. 
sLOCAL TEXT MESSAGES FOR TEST 


TI3SPACKET: 
. WORD 
. WORD 
- WORD 
. WORD 
TI3DATA: 
- WORD 
. WORD 
- WORD 
. WORD 
TI3BFR: .BLK 
g¢ 
TST13I0: 
TI3MEM: .ASCIZ 
-EVEN 
TI3NBA: .ASCIZ 
TI3SSR: .ASCIZ 


3° 


-ASCIZ 


SEQ 097 


sLOUK AT NEXT RAM Loc. 
sAT TOP OF RAM ADDRESS SPACE 
sBRANCH TILL ALL MEMORY TESTED 


sANY FATAL ERRORS ? 

;BRANCH IF NOT 

sTRY TO DROP THE UNIT 

sDONE ALL ITERATIONS? 

;BR IF YES 

:LOOP UNTIL ITERATION COUNT DONE 


TRAP 
. WORD 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH ACK 


sADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


‘Initialization After WRITE CHARACTERISTICS’ 


‘Incorrect RAM Data After Init’ 


‘WRITE CHARACTERISTICS Command Not Accepted’ 
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 


é 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


-EVEN 


TI3SREST: 


@TL3SPACKET,R1 
#100004 ,(R1)- 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE CHARACTERISTICS WITH ACK 


CSExIT 
L10036-. 


TSvS 


TEST 


‘4 


MAROWARE TE 
INITIALIZ 


024372 


8 024376 


024400 
024404 
024410 
024412 
024416 
024420 
024422 
024424 
024424 
024424 


012721 
S021 


012737 


104402 
004737 


024050 


000010 
024062 


00001€ 


015774 


025600 
010662 


ee ren Gaere thaRa E 


002216 


Rieites! 


H8 


SEQ 0986 

@TISDATA,(R1)+ ;ADDRESS OF CHAR DATA BLOCK 
CR1)+ sEXTENDED ADDRESS 
08. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
+L waa sADDRESS OF MESSAGE BUFFER 
“a sLENGTH OF MESSAGE BUFFER 

* 
(R1) 


;RETURN 


L10036: 
TRAP CseTsT 


-SBTTL TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


3¢ 


; 

THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
sBSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. IT ALSO 
sVERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
sMODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
sCOMMAND DECODING AND HANDLING SEQUENCES. 


; 
ge 
BGNTST 


MOV 
JSR 
MOV 
9". 


JSR 
SETPRI 


5s: 


1C$: 
MOV 
JSR 
BCS 


MOV 
ERRHRD 


@TST14I0,RO 
PC, TSTSETUP 
#20. ,LOOPCNT 


PC, TI4REST 
PC, T14RST 
&PRIOO 


PC,SOF INIT 
10$ 


RO,R1 
ERRNO, SF TERR, SF IMSG 


@T14PK2,R4 
PC,WRICHR 
11$ 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


T2:: 
sASCII MESSAGE TO IDENTIFY TEST 
3:00 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


s7//////1//// BEGIN SUBTEST SAAS ///4/ 4747/7 
T2.1: 


TRAP Cs6SuB8 
sSET PACKET TO INITIAL VALUES 
;SET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP CssPRI 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 

:00 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sOEVICE FATAL ERROR DURING INIT 
TRAP CSsERCF 

. -WORD 201 


sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC oy 


«WORD 202 
-WORD = WRIMSG 


TSVS - HARDWARE TESTS 


TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


024676 
024676 


024700 
024700 
024700 


024702 


012034 


615510 


104405 


104403 
005737 


MACRO M1113 06-FEB-84 17:14 


002222 


002224 


011114 


002222 


i1$: 


158; 


22s: 


S$: 


598: 


ENDSEG 


ENDSUB 


TST 


18 


FATFLG 
INTRECY 
OTI4PACKET ,R4 


RO,R1 
ERRNO, T14SSR,PKTSSR 


FATFLG 
SEG 


INTRECV 
228 
ERRNO, TI4NINT ,PKTSSR 


TSSRA(RS),R1 
R2 


30$ 
ERRNO, TL4NBA,PKTSSR 


PC, CKRAM 
5938 
ERRNL ,PK TRAM, RAMERR 


FATFLG 


SEQ 099 


-WORD SF IMSG 


sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 

sSET UP NEW WRT. SUBSYS MEM. COMMAND 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

:;6R IF CARRY SET (GOOD ..< 1: URN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 

203 

T14SSR 

PKTSSR 


a3 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 


;0ID AN INTERRUPT OCCUR ? 
;PRANCH IF YES 


CSCLP1 


CSESCAPE 
10000$-. 


TRAP CSERHRD 
«WORD 204 
-WORD TI4NINT 
wORD 


° PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSP 
:IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF -L INE 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRO 


"wORD T1L4NBA 
"wORD  PKTSSR 


3 
: 


;CHECK RAM TO MEMORY 

;RAM OK G50 ON 

; THEY DON’T MATCH 
TRAP CSERHRD 
. WORD 


206 
«WORD PKTRAM 
. WORD RAMERR 
geeeeecccecceecece END SEGMENT <eceeeeeececc 
100008: 
TRAP CSESEG 


ENNNANNNNNNANN END SUBTEST SANANANANAANA 
L10040; 
TRAP CSE SUB 


sANY FATAL ERRORS ? 


TSv5 HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 100 
TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 
274 024706 001402 BEQ 69% ;BRANCH IF NOT 
275 024710 094737 017202 JSR PC ,CKNROP sTRY TO OROP THE UNIT 
276 024714 60$: 
277 3° 
278 3 
cae :TEST 2, SUBTEST 2 
a 
261 sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
oes ;WRITE SUBSYSTEM MEMCRY COMMAND TO BE REJECTED 
2 ; 
385 ‘ 
286 024714 BGNSUB 3/74/////7/7/7/7/ BEGIN SUBTEST S///S SSS 44/747 
024714 72.2: 
207 024714 104402 TRaP CsBSuUB 
288 024716 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
024716 012700 000000 MOV @PRIOO,RO 
024722 104441 TRAP CSSPRI 
289 024724 012704 025600 5$: MOV @T14PK2,R4 sGET THE ADDRESS OF COMMAND PACKET 
290 024730 004737 026306 JSR PC, TL4REST sRESTORE PACKET TO STARTING VALUES 
291 024734 004737 026344 JSR PC, T1I4RST sRESTORE PACKET TO STARTING VALUES 
292 024740 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>>> 
293 024740 104404 TRAP CsBSEG 
294 024742 004737 015774 JSR PC,SOF INIT 300 SOFT INIT CF CONTROLLER 
295 024746 103405 BCS 10$ ;BR IF SOFT INIT = OK 
299 024750 010001 MOV RO,R1 :SAVe CONTENTS OF TSSR 
300 024752 ERRDF ERRNO, SF IERR, SF IMSG ;DEVICE FATAL ERROR DURING INIT 
024752 104455 TRAP CSERDF 
024754 000317 . WORD 207 
024756 003652 . WORD SFIERR 
024760 012034 . WORD SF IMSG 
301 024762 10$: 
302 024762 004737 010662 JSR PC,WRICHR ; ISSUE WRITE CHARACTERISTICS 
303 024766 103405 BCS 11$ ;B8R, IF COMMAND ISSUED OK 
307 024770 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
308 024772 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE SUBSYSTEM MEMORY FAILED 
024772 104456 TRAP CSERHWRD 
024774 000320 . WORD 208 
024776 005056 . WORD WRTMSG 
025000 012034 . WORD SF IMSG 
309 025002 11%: 
310 025002 005037 002224 CLR INTRECV ;CLEAR INTERRUPT RECEIVED FLAG 
311 025006 012704 025160 MOV @T1L4&PACKET ,R4 ;SET-UP WITH WRT SUBSYS MEM PACKET 
312 025012 052714 007000 BIS #007000 ,(R4) sNON-ZERO COMMAND MODE BITS 
313 025016 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS 
314 025022 004737 016250 JSR PC ,WAITF sWAIT FOR SSR TO SET 
315 025026 103405 BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 
316 025030 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
320 025032 ERROF ERRNO, T14SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
025032 104455 TRAP CSERDF 
025034 000321 . WORD 209 
025036 025773 . WORD TL4SSR 
025040 012046 . WORD PKTSSR 
321 025042 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
025042 104406 TRAP CsCLPL 


TSVS - HARDWARE TESTS 


TEST 2: 
322 


025176 


015510 


104405 


104403 
104432 


001246 


025160 


100206 
025170 
000000 


000006 
000 
000 

000000 

003000 


MACRO M1113 06-FEB-84 17:14 
BASIC WRITE SUBSYSTEM MEMORY COMMAND 


002224 


000002 
100206 
000100 


000100 


011114 


ESCAPE 


22s: MOV 


25%: CMP 


30$: 
3538: JSR 


59%: ENOSUB 


K8 


SEG 


INTRECY 
22s 
ERRNO, TLSNINT ,PKTSSR 


TSSRCRS),R1 
@SC!SSR! TSREJ,R2 
@OFL RI 


30$ 
ERRNO, T142REN,PKTSSR 


PC, CKRAM 
59% 
ERRNO, PKTRAM,RAMERR 


TsT 


3¢ 
;LOCAL STORAGE FOR THIS TES: 


T14PACKET: 
. WORD 
. WORD 
. WORD 
. WORD 
TL4DATA;: 
T14B8S0O: .BYTE 
T148S1: .BYTE 
T14B8S2: .WORD 
. WORD 
T14BFR: .BLKW 


*=¢,+10>€177770 


100206 
T14DATA 


-OO0CO AO 


SEQ 101 
sBY-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$-. 
:0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
.» WORD 210 
. WORD TL4NINT 
. WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF [SSR 
:IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
3;SET OFF-LINE IN EXPECTED DATA 
;D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
:COMMAND NOT REJECTED 
TRAP CSERHRD 
«WORD 211 
. WORD T142REJ 
- WORD PXKTSSR 
;CHECK RAM TO MEMORY 
;RAM OK GO ON 
; THEY DON'T MATCH 
TRAP CSERHRD 
. WORD 12 
-WORD PKTRAM 
WORD RAMERR 
p< eeeeceececcee END SEGMENT <cceceeeeeececec 
10000$: 
TRAP CsSESEG 
S\ANNNNANNANNN END SUBTEST N\AANANAANANAN 
L i: 
TRAP CsESUB 
:ALL DONE THIS TEST 
TRAP CSEXxIT 
. WORD L1003”.-. 


;COMMAND PACKET FOR TEST 
sWRITE SUBSYSTEM MEM. COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
;CHARACTERISTICS DATA BLOCK 
;BSELO BYTE 

;BSEL1 BYTE 

;BSEL1 WORD 

;DATA 

sMESSAGE BUFFER 


L8 
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TEST 2: BASIC WRITE SUBSYSTEM MEMDRy PB arinD 
370 
371 
373 025600 .*<,+10>€177770 
375 025600 T1L4PK2; sCOMMAND PACKET FOR TEST 
376 025600 100204 .WORD 100204 ;WRITE CHARA. MEM. CMND., WITH IE, ACK 
377 025602 025610 .WORD T14DTA s;ADDRESS OF SELECT DATA BLOCK 
378 025604 000000 .wORD 0 
hay 025606 000010 -WwORD 8. :STARTING VALUE OF BLOCK SIZE 
381 
382 025610 TL4DTA: ;SELECT DATA BLOCK 
383 025610 025176 .WORD T14BFR sADDRESS OF MESSAGE BUFFER 
384 025612 000000 .WORD O 
385 025614 000400 .WORD 256. s;LENGTH OF MESSAGE BUFFER 
306 025616 000000 000000 .WORD 0,0 
388 
389 3° 
390 ;LOCAL TEXT MESSAGES FOR TEST 
30> a 
393 025622 127 122 111 Ti4NBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
394 025676 127 122 111 T142REJ: ASCIZ ‘WRITE SUBSYSTEM MEMORY Not Re jected With Non-Zero Mode Field’ 
395 025773 103 157 156 T14SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY’ 
396 026063 105 170 160 T14NINT: ASCIZ ‘Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY’ 
397 026155 111 156 143 Ti4TSBA: "ASCIZ ‘Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY’ 
398 026241 102 141 163 TST14I0: "ASCIZ ‘Basic WRITE SUBSYSTEM MEMORY Command’ 
399 .EVEN 
400 
401 
203 % 
H 
404 ;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
405 ;WRITE SUBSYSTEM MEMORY COMMAND 
6 
407 - 
408 
409 026306 TL4REST: 
410 026306 SAVREG 3;SAVE THE REGISTERS 
411 026312 012701 025160 MOV OTL4PACKET,R1 3;START OF THE PACKET 
412 026316 012721 100206 MOV #100206,(R1)-+ ;WRITE SUBSYSTEM MEM. WITH ACK, IE 
413 026322 012721 025170 MOV @T14DATA,(R1)+ s;ADORESS OF DATA BLOCK 
414 026326 005021 CLR (R1)> ;EXTENDED ADORESS 
415 026330 012721 000006 MOV 06.,(R1)> ;SIZE OF DATA BLOCK IN BYTES 
416 026334 005021 CLR CR1)+ ;CLEAR BSELO AND BSEL1 
417 026336 005021 CLR (R1)> 3;CLEAR SEL2 
418 026340 005011 CLR (R1) ;CLEAR DATA AREA 
ase 026342 000207 RTS PC ;RETURN 
421 
422 026344 TLARST: 
423 026344 SAVREG ;SAVE THE REGISTERS 
424 026350 012701 025600 MOV OT14PK2,R1 ;START OF THE PACKET 
425 026354 012721 100204 MOV #100204 ,(R1)-+ s;WRITE CHARA. WITH ACK, IE 
426 026360 012721 025610 MOV @T1L4DTA,(R1)> sADDRESS OF CHARAISTICS DATA BLOCK 
427 026364 005021 CLR (R1)> ;EXTENDED ADDRESS 


428 026366 012721 000010 MOV 08. ,CR1)+ 3SIZE OF DATA BLOCK IN BYTES 


TSVvS - 
TEST 2: 


M8 


BASIC WRITE SuBsysten MEMORY CoMmino’ +7! 


012721 
005021 
012721 
005021 
005011 


005037 
000207 


104401 


025176 
000400 


025176 


MOV OT14BFR,CR1)>+ 
CR1)>+ 


CLR A 

MOV #256. ,(R1)+ 
CLR CR1)+ 

CLR (R1) 

CLR T14BFR 

RTS PC 

ENDTST 


SEQ 103 


sMESSAGE BUFFER ADDRESS 

sLENGTH OF MESSAGE BUFFER 

;CLEAR 1ST LOC IN MESSAGE BUFFER 
s;RETURN 


L10037: 
TRAP CsETST 


TSVS - HARDWARE TESTS 
TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


438 
439 
4Aao 
441 
442 
443 


012700 
004737 
012737 
005237 
004737 


MACRO M1113 06 


030470 
016510 
000012 
003150 
021276 


002216 


N8 


mk 17:14 SEQ 104 


zee 


-SBTTL TEST 3: DMA MEMORY ADDRESSING 


; TEST 3 


TEST DESCRIPTION 


This test verifies that the controller can properly address and 
access all available CPU memory (other than that occupied by the 
diagnostic and diagnostic supervisor code) for both reading (DATI) 
and writing (DATO). Verified are the LSI-11 Bus drivers for all 
available address lines. Up to this point only 16 bits have been 
used for OMA transfers. 


TEST STEPS 
REPEAT FROM 1 TO LOOPCNT 
BEGIN 


Do Subtest 1 - Verify GET STATUS selected locations 
Do Subtest 2 - Verify message packets selected locations 
Do Subtest 3 - Verify Characteristic date selected locations 
oe” Subtest 4 - Verify NXM to selected invalid addresses 
BGNTST - 
MOV @TST12ID,RO ;ASCII MESSAGE TO IDENTIFY TEST 
JSR - PC,TSTSETUP 300 INITIAL TEST SETUP 
MOV #10. ,LOOPCNT :PERFORM 10 ITERATIONS 
INC T3BFLG ;SET TEST FLAG 
JSR PC .MEMCK ;CHECK MEMORY 
T12LO0P; ;LOOP ON TEST LABEL 


-SBTTL TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 


tee 
; TEST 3: SUBTEST 1: 


- © = © ae © @F Ge oe ot OF ot or oe Ge oe 


SUBTEST DESCRIPTION: 


This subtest verifies the controller can fetch a get status 
command from all available memory locations. 

Two word blocks are tested one at a time by first setting 

ell available memory to a background pattern of 125252. 

A Get Status command is then executed to various addresses in 
each available memory 4k word block. The various addresses 

ere determined by floating a 1 then a O through the address b'ts. 


TEST STEPS: 
BEGIN 


Write to TSSR » soft initialize 
Do a WRITE CHARACTERISTICS to setup 9 message buffer 


B9 
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TEST 3: SUBTEST 1: GET STA US SELECTED LOCATIONS 
a ’ cag —~ 8 tae SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
3 

500 ’ Get ea valid modulo-4 test address 

501 3 Do a GET STATUS command from the test address 

502 : ENO 

503 : END 

504 : 

505 

506 026446 BGNSUB /////174////7 BEGIN SUBTEST SASS //4///7 
026446 T3.1: 
026446 104402 TRAP Cs65u8 

507 

508 

509 sWrite to TSSR to soft initialize 

510 026450 004737 015774 JSR PC, SOFINIT 300 SOFT INIT OF CONTROLLER 

511 026454 103405 6cs 158 s68R IF SOFT INIT = OK 

512 026456 NEXT. ERRNO 

513 026456 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

514 026460 ERROF ERRNO, SFIERR, SF IMSG sDEVICE FATAL ERROR DURING INIT 
026460 104455 TRAP CSERDF 
026462 000455 . WORD 301 
026464 003652 WORD SF IERR 

a 026466 012034 . WORD SF IMSG 

516 300 @ WRITE CHARACTERISTICS to setup a message buffer 

517 026470 158: 

518 026470 012704 030260 MOV @TL2PACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 

519 026474 004737 031640 JSR PC, TI2SWRT sRESTORE PACKET TO STARTING VALUES 

S20 026500 005037 003134 CLR K TENABLE 3s TURN OFF KT-11 

S21 026504 010465 000000 MOV R4,TSOB(RS) 1SET THE PACKET ADDRESS 

S22 026510 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

523 026514 FORCERROR 178% 

524 0265350 103405 6cs 208 38R IF SSR SET IN CHKTSSR 

S25 026532 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

526 026534 NEXT .ERRNO 

527 026534 178: ERROF ERRNO, TI2WRTISSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
026534 104455 TRAP CSEROF 
026536 000456 . WORD 30 
026540 030572 . WORD TLOWRTSSR 

_— 026542 012046 .WORD PKTSSR 

S529 sVerify ea Get Status can be fetched from each address 

530 sGet @ valid modulo-4 test address 

531 :Do ea GET stare command from the test eddress 

532 026544 005037 002222 208: CLR FATFLG sCLEAR FATAL ERROR FLAG 

533 026550 005037 030330 CLR T12KT sTEST ABOVE 28K SWITCH 

534 026554 012702 030334 MOV @TL2BLK,R2 sPOINT TO TEST PATTERN TABLE 

535 026560 T121L00P: 

536 026560 005037 003134 CLR K TENABLE sTURN OFF ABOVE 28K TEST FLAG 

537 026564 012201 MOV (R2)+,R1 3GET TEST PATTERN ADDRESS 

538 026566 005000 CLR RO sASSUME NO TEST ABOVE 28K 

539 026570 05737 030330 TST T12KT sTEST ABOVE 28K THIS TIME? 

540 026574 001407 BEQ 25% 36R IF NO 

541 026576 016200 177776 MOV -2(R2),RO 3GET TEST PATTERN AGAIN 

542 026602 042700 177774 BIC @tC<A1716>,RO sSAVE 18 BIT ADDRESS ONLY 

543 026606 012737 000001 003134 MOV #1,K TENABLE s TURN ON ABOVE 28K TEST FLAG 


544 026614 004737 031336 258; JSR PC, TL2CONVERT sCONVERT TEST PATTERN TO TEST ADDRESS 


FEY? 8. "S0BVERE LES2e, 


a 


sYATHS SecetreBScBERi POnd”* 14 


177774 
017274 
000000 
016336 


017274 


002222 
017202 


030330 


Bcc 653% 
MOV TL2LOADD ,R4 
MOV TL2HIADD,R3 
JSR PC, TI2SETGET 
BIC @tC<A1716>,R3 
BIS R3,R4 
JSR PC .KTOFF 
MOV R4, TSOBC(RS) 
JSR PC,CHKTSSR 
FORCERROR 328 
bcs 403 
MOV RO,R1 
NEXT .ERRNO 
323: ERRDF ERRNO, TI2GETSSR,PKTGETS 
403: CKLOOP 
653%: 
FORCEXIT 80% 
CMP Rz, @TI2TBE 
BHIS 70% 
JMP T121L00P 
708: TST T12KT 
BGT 808 
TST KTFLG 
BEQ 80% 
MOV 1, T12K" 
MOV @TLOBLK ,R2 
JMP T121L00P 
803: JSR PC ,.KTOFF 
ENOSUB 
TST FATFLG 
BEQ 1008 
JSR PC, CKDOROP 
1008: 


$e? 
s TEST 3: SUBTEST 2: 
q 
SUBTEST DESCRIPTION: 


SEQ 106 


s6R IF INVALID PACKET ADDRESS 

sCOPY CURRENT PACKET LOW ADDRESS 
sCOPY CURRENT PACKET HIGH ADDRESS 
sSETUP CURRENT PACKET TO GET STATUS 
sSAVE ADDRESS BITS 17+1€ 

sSETUP 18 BIT PACKET ADDRESS 

sTURN OFF KT-11 

sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


18R IF SSR SET IN CH¥TSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL 3SR FAILED TO SET 
TRAP CSEROF 
«WORD 303 
«WORD T1L2GETSSR 
«WORD PKTGETS 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sD0NE ALL TSTBLK TEST PATTERNS? 
36R IF YES 

300 ANOTHER MODULO- 4 ADDRESS 
sD0NE ABOVE 28K TESTING 100? 

36R IF YES 

sANY MEMORY ABOVE 28K ON SYSTEM? 
36R IF NO 

sSET SWITCH 

sRESET TEST PATTERN TABLE 

300 ABOVE 286K TESTING 

3 TURN OFF KTI1 

SNANANANNANSAN ENO SUBTEST \ANNANNAAAANA 


L10043; 
TRAP CsESUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO OROP THE UNIT 


TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 


Thie eubtest verifies the controller can deposit message packets 
to all eveilable memory locations. 

Write Characteristics commands are executed with mess 

buffer addresses set to various addresses in each avai lable 


location. 


The various eddresses are determined by floating a 1 then a 0 


through the address bits. 


’ 

: 

: 

‘ 

; 

; 

3 memory 
’ 

3 

3 

+ TEST STEPS: 
; 


D9 
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TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
595 ’ BEGIN 
596 ; Write to TSSR to soft initialize 
a A Do a WRITE CHARACTERISTICS to setup a message buffer to compare 
3 
ao 3 ——a SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
6 3 
601 ; Get ea valid — ee 4 test addres 
602 3 Set the packet me buf fer og the TEST ADORESS 
603 : Do ea WRITE CHARACTER sTics 
os 3 Restore the test message buffer to background pattern 
: 
606 3 END 
607 8-- 
606 
609 027006 BGNSUB 377///////7/7// BEGIN SUBTEST ////////7/7/ 
027006 T3.2: 
027006 104402 TRAP Cs68SU8 
610 
611 
612 sWrite to TSSR to soft initialize 
613 027010 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
614 027014 103405 Bcs 158 36R IF SOFT INIT = OK 
615 027016 NEXT. ERRNO 
616 027016 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
617 027020 ERROF ERRNO, SF IERR, SF IMSG sOEVICE FATAL ERROR DURING INIT 
027020 104455 TRAP CSERODF 
027022 000460 . WORD 304 
027024 003652 «WORD SFIERR 
eae 027026 012034 «WORD SF IMSG 
134 eerese ise e@ WRITE CHARACTERISTICS to setup a message buffer to compare 
158; 
621 027030 012704 030260 MOV @TLQPACKET ,R4 3GET THE ADDRESS OF COMMAND PACKET 
622 027034 004737 031640 JSR PC, T12SwRT 3SET PACKET TO WRITE CHARACTERISTICS 
623 027040 004737 017274 JSR PC ,KTOFF sTURN OFF KT-1 
624 027044 010465 000000 MOV R4, TSOBC(RS) sSET THE PACKET ADDRESS 
625 027050 004737 016336 JSR PC,CMKTSSR sWAIT FOR SSR TO SET 
626 027054 FORCERROR 17% 
627 027070 103405 BCS 20% 3BR IF SSR SET IN CHKTSSR 
628 027072 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
629 027074 NEXT .ERRNO 
630 027074 17%: ERROF ERRNO, TIQ2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
027074 104455 TRAP CSERDF 
027076 000461 . WORD 305 
027100 030572 . WORD TiQWRTSSR 
a 027102 012046 .WORD PKTSSR 
632 sGet e valid — 4 test address 
633 ;Set the packet me buffer to the test address 
634 :Do a WRITE CHARACTER sTics 
635 027104 005037 002222 208; CLR FLG sCLEAR FATAL ERROR FLAG 
636 027110 012703 030334 MOV orlamn, R3 «POINT TO TEST PATTERN TABLE 
637 027114 !122L00P 
638 027114 012301 MOV (R3)+,R1 . 3GET TEST PATTERN ADDRESS 
639 027116 010100 MOV R1,RO : sGET ADDRESS ALL “18 BITS” 
640 027120 042700 177774 BIC 0177774,RO0 s;LEAVE ONLY AL? AND Al6 


641 027124 042701 000003 BIC 03,R1 . sGET RIO OF A17 AND Al6 


TSvS 


TEST 


- HARDWARE 
3: SUBTEST 


027272 
027276 


TESTS 
2: 


MACRO M11 
MESSAGE PACKET 


030466 


027114 
017274 


002222 
017202 


030270 
+ 030272 


258: 


328: 


508: 


150$: 


1608: 


1808: 


ey 


13 06-FEB-84 17:14 
S TO SELECTED LOCATIONS 


JSR PC, TL2CONVERT 
BCS 25% 

JMP 150% 

MOV @TL2QPACKET ,R4 
JSR PC, TLI2SWRT 

MOV T12LOAD0, TL2DATA 
MOV TI2HIADD, TL2DATA+2]) 
JSR PC .KTOFF 

MOV R4, TSOBCRS) 

JSR PC ,CHKTSSR 
FORCERROR 

BcsS 50$ 

MOV RO,R1 

NEXT .ERRNO 

ERRDF ERRNO, TI2WRTSSR,PKTSSR 
CKLOOP 

FORCEXIT 160$ 

CMP R3,eTI2TBE 

BHIS 160$ 

JMP T122L00P 

JSR PC .KTOFF 

ENOSUB 

TsT FATFLG 

BEQ 160% 

JSR PC, CKOROP 


SEQ 108 


sCONVERT TEST PATTERN TO TEST ADDRESS 
s8R IF VALID MESSAGE BUFFER ADDRESS 
sGET ANOTHER TEST PATTERN TO TRY 

sSET THE COMMAND PACKET ADDRESS 
sSETUP TL2PACKET TO WRITE CHAR. 
sSETUP LOW ORDER MESSAGE BUFFER ADD. 
sSETUP HIGH ORDER MESSAGE BUFFER ADD. 
sTURN OFF KT-11 

sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


sBR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
-WORD 306 
«WORD T12WRTSSR 
PKTSSR 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP C#CLP1 


sDONE ALL TSTL2BLK TEST PATTERNS? 

3B8R IF YES 

300 ANOTHER MODULO- 4 ADDRESS 

3 TURN OFF KT11 

sNNNNNNNANNNAN END SUBTEST \ANANAANANAAN 
L10044; 


TRAP CSESUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
;TRY TO OROP THE UNIT 


-SBTTL TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
3¢¢ 
; TEST 3: SUBTEST 3: 


SUBTEST DESCRIPTION: 


This subtest verifies the controller can fetch a 
Write Characteristics deta block from all available 


memory locetions. 


Write Characteristics commands are executed with 
characteristic data blocks at various memory addresses. 
Tne various memory addresses are determined by floating 
ea 1 then a O through the address bits. 


TEST STEPS: 


BEGIN 
Write to TSSR to soft 


REPEAT FOR SELECTED V/LID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


initialize 


TSVS - HARDWARE 
TEST 3: SUBTEST 


027276 
027276 
027276 


027316 


027320 
027324 
715 027330 
716 027334 
027334 


027412 
027416 
027422 
027430 
027436 


027442 
027446 
027452 
027456 
027472 
027474 


TESTS 


MACRO M 


3: CHARACTERIST 


005037 
005037 


103405 
010001 


015774 


177774 
000003 
030330 


177776 
177774 
000001 
031336 


027510 
030260 
031640 
030324 
030322 
031750 
017274 
000000 


016336 


F9 


tt Bark? SELECTED: UatAtrons 


003134 


000002 


BEGIN 


test address. 


BGNSUB 


;Write ay TSSR to soft initialize 


SR PC, SOF INIT 
BCS 208 
NEXT. ERRNO 
MOV RO,R1 
ERROF ERRNO,SFIERR,SFIMSG 


:Get a valid test address 
: CLR FATFLG 


Get a valid test address 
Set the test packet characteristics data pointer to the 


SEQ 109 


Store expected characteristic data in test address block 
Do a WRITE CHARACTERISTIC command 


TT AAALAAAAAALA ae 6 paca 4444444444 
oe C$B8SUB 


:00 SOFT INIT OF CONTROLLER 
;BR IF SOFT INIT = OK 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 


TRAP CSEROF 
«WORD 307 

«WORD SFIERR 
-WORD SF IMSG 


sCLEAR FATAL ERROR FLAG 
sTEST ABOVE 28K SWITCH 
sPOINT TO TEST PATTERN TABLE 


;TURN OFF ABOVE 28K TEST FLAG 
3;GET TEST PATTERN ADDRESS 
;GET ADDRESS ALL "18 BITS” 
sLEAVE ONLY A17 AND Al6 

;GET RID OF A17 AND Al16 

;TEST ABOVE 28K THIS TIME? 
3;8R IF NO 

sGET TEST PATTERN AGAIN 

;SAVE 18 BIT ADDRESS ONLY 
;TURN ON ABOVE 28K TEST FLAG 
sCONVERT TEST PATTERN TO TEST ADDRESS 
;8R IF VALID TEST ADDRESS 
3;GET NEXT TEST PATTERN 


JMP 
ety — packet characteristics date pointer to the test address 


20$ 
CLR T12KT 
MOV @T12BLK,R3 
T123L00P : 
CLR K TENABLE 
MOV CR3)+,R1 
MOV R1,R0 
BIC 0177774, R0 
BIC @3,R1 
TST T12kT 
BEQ 253 
MOV -2(R3),RO 
BIC @tC<A1716>,RO 
MOV #1,K TENABLE 
253%: JSR PC, TI2CONVERT 
BCS 30% 
60$ 
O$: Vv @TL2PACKET ,R4 
JSR PC, TL2SWRT 
MOV T12LOADD , PKLOW(R4 ) 
MOV TL2HIADD , PKHICR4 ) 
JSR PC, TI2CHAR 
:Do a WRITE CHARACTERISTIC command 
JSR PC ,KTOFF 
MOV R4, TSOB(RS) 
JSR PC, CHKTSSR 
FORCERROR 32$ 
6cSs 40$ 


sGET THE ADDRESS OF COMMAND PACKET 
;RESTORE PACKET TO STARTING VALUES 
sSTORE CHAR. DATA PTR LOW ADDRESS 
sSTORE CHAR. DATA PTR HIGH ADDRESS 
sSTORE EXPECTED DATA IN DATA BLOCK 


sTURN OFF KT-11 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 


;BR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


WARE TESTS 


HARD 
3: SUBTEST 


027476 


027570 
027574 


3: CHARACTER 


104455 
64 


MACR 


030466 


027334 
030330 


003132 
000001 
030334 


027334 
017274 


002222 
017202 


030330 


stie batae SELECTED: UatArrons 


328; 


40$: 
608: 


65$: 


708: 


75$: 


G9 


SEQ 110 
NEXT .ERRNO 
ERRDF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 308 
«WORD T12WRTSSR 
-WORD PKTSSR 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
CMP R3, @TLOTBE sDONE ALL TSTBLK TEST PATTERNS? 
BHIS 65% 3BR IF YES 
JMP T123L00P 300 ANOTHER MODULO- 4 ADDRESS 
TsT T12KT sD0NE ABOVE 28K TESTING TOO? 
BGT 70$ ;BR IF YES 
TST KTFLG sANY MEMORY ABOVE 28K ON SYSTEM? 
BEQ 70$ sBR IF NO 
MOV @1,T12KT sSET SWITCH 


MOV @T126LK ,R3 sRESET TEST PATTERN TABLE 
JMP T123L00P 300 ABOVE 28K TESTING 


JSR PC ,KTOFF 3TURN OFF KT11 
ENDSUB sNNANANANANNNN END SUBTEST \ANAAANNANA 
L10045: 
TRAP CsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 75$ ;BRANCH IF NOT 


JSR PC,CKDROP ;TRY TO DROP THE UNIT 


-SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


zee 
; TEST 3: SUBTEST 4: 


SUBTEST DESCRIPTION: 


This subtest verifies the NXM error bit in the TSSR 

register is set when attempting to fetch data (a characteristic 

date block) from selected nonexistent locations. 

If NXM fails to set it is likely that an LSI-11 Bus driver is 

failing to assert an address line. 

Addresses tested include all combinations of high-order address 
bits Ci.e bits 16-21). 

SHSSHSSSSEAASEASESASASESEAASESESESASASEAEEASEEEAEEEKEEHEEEHEEEEEEEEED 


CAUTION 


The LSi BUS drivers for all available address lLines( 16-21) 
ere only checked when running on a 11/238 system with more than 
128K words of memory! 
SHAHSEHEEEHEACSESSECESASASASESOSEESSHESEEAASEHASCHESASSEHEESESEASHEESEHEEEEEEE 


TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 
Do ea write characteristic command 
Invert the extended features switch 


REPEAT FOR SELECTEG NCN-EXISTENT MEMORY ADDRESSES 


H9 


TSVS - HARDWARE TESTS MACRO M 3 -FEB- 7:14 SEQ 111 
TEST 3: SUBTEST 4: NXM TO Pected INVALID adore sées 

793 3 BEGIN 

794 : Get an invalid test address 

795 3 Set the test packet characteristics date pointer to the 

? ; test address. 

797 : Do a WRITE CHARACTERISTIC command 

798 : ne If TSSR register NXM bit not set then print error message 

? 8 

800 3 END 

801 ges 

802 

803 027574 BGNSUB 34/////////// BEGIN SUBTEST S///////7/7/ 
027574 73.4: 
027574 104402 TRAP Cs$68SU8 

80s 

806 027576 005737 003144 TST T23A 326-APR-83 REV B - CHK FOR 23A CPU 

807 927602 001406 BEQ S$ 326-APR-83 REV B - BR, IF NOT 23A 

808 027604 023727 002120 007777 CMP LSHIME ,@7777 326-APR-83 REV B - CHK FOR > 256KB 

809 027612 103402 BLO 53 326-APR-83 REV B - BR, IF <« 256KB 

TF Srete 000137 030206 5 JMP NOE X TF 326-APR-83 REV B - JMP OVER 256KB 

i! $: 

812 027620 005737 003136 TST NXMFLG ;GOT ENOUGH MEMORY? 

813 027624 001002 BNE 10$ 3;IF SET STAY 

ave 027626 000137 030206 JMP NOE X TF ;LEAVE IF NOT SET 

te sWrite to TSSR to soft initialize 

818 027632 004737 015774 10$: JSR PC,SOF INIT 3:00 SOFT INIT OF CONTROLLER 

819 027636 103405 BCS 11$ 3;68R IF SOFT INIT = OK 

820 027640 NEXT. ERRNO 

821 027640 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

822 027642 ERRDOF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
027642 104455 TRAP CSERDF 
027644 000465 . WORD 309 
027646 003652 . WORD 3F IERR 

923 027650 012034 .WORD SF IMSG 

rH :Do a WRITE CHARACTERISTIC command so to invert switch 

826 027652 118: CKLOOP ;LO00P IF SELECTED 
027652 104406 TRAP CSsCLPl 

827 027654 012704 030260 MOV @TLOPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

828 9027660 004737 031640 JSR PC, T1I2SWRT sRESTORE PACKET TO STARTING VALUES 

829 027664 005037 0C3134 CLR K TENABLE ; TURN OFF KT-11 

830 027670 010465 000000 MOV R4,TSDBC(RS) ;SET THE PACKET ADDRESS 

831 027674 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSK TO SET 

832 027700 FORCERROR 158% 

833 027714 103405 BCS 178 ;6R IF SSR SET IN CHKTSSR 

834 027716 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 

835 027720 NEXT. ERRNO 

836 027720 158: ERRDF ERRNO, TI2WRISSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
027720 104455 TRAP CsEROF 
027722 000466 . WORD 310 
027724 030572 . WORD TLOWVRISSR 
027726 012046 WORD PKTSSR 

837 027730 17%: CKLOOP 3L00P IF SELECTED 


627730 104406 TRAP CscrPy 


TSvS . 


TES? 


3: SUBTEST 


838 027732 


842 027736 
843 027742 
844 027742 
845 927750 
846 027756 


ARE TESTS 


004737 


005037 


013737 
013737 


013737 
013737 


MACRO M1115 


021206 


002222 


00%142 
003140 


030260 
031640 
030324 
030322 


017274 
000000 
016250 


002222 


000002 
004000 


030324 
030322 


003144 


030322 
030324 


002240 
002236 


06 -FEB-84 17:14 
4: NXM TO SELECTED INVALID ADDRESSES 


JSR 


19 


;Get an invalid test address 


20%: cLR 


MOV 
MOV 


25%: 


T124L00P: 


NXMHI, TL2HIADD 
NXMLO, T1L2LOA0D 


SE@ 112 


s INVERT THE SWITCH 


sCLEAR FATAL ERROR FLAG 


sSAVE TEST ADDRESS HIGH 
sSAVE TEST ADDRESS LOw 


;Set the test packet characteristics date pointer to the 


; test address. 


CscLP1 


CSESCAPE 
L10046-. 


CSERWRD 
312 
TLONXM 
ADOSSR 


Csc.P1 


30% MOV @TLOPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR sRESTORE PACKET TO STARTING VALUES 
MOV T1L2LOADC , PKLOWC( RE ) sSTORE CHAR. DATA PTR LOW ADDRESS 
MOV TL2HIADD , PKHICR4 ) sSTORE CHAR. DATA PTR HIGH ADDRESS 
s00 a WRITE CHARACTERISTIC command 
JSR PC .KTOFF 3 TURN OFF KT-11 
MOV R4, TSUBCRS) sSET THE PACKET ADORESS TO EXECUTE 
JSR sWAIT FOR SSR TO SET 
FORCERROR 328 
BCS sBR IF SSR SET IN CHKTSSR 
MOV sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
328 ERROF ERRNO,TIQWRTSSR,PKTSSR ;DEVICE FATAL SSR demcecee + ai 
. WORD 
. WORD 
WORD 
INC sSET FATAL ERROR FLAG 
40%: CKLOOP sLOOP ON ERROR, IF FLAG a 
FORCERROR 45$%,NOTSSR 
ESCAPE SUB :ByY-PASS SUBTEST IF —— 
. WORD 
i TSSR register NXM bit not set then print error message 
$: 
MOV TSSRC(RS),R1 ;GET TSSR CONTENTS 
FORCERROR 52s 
BIT sWXM SET? 
BNE 6 :BR IF YES 
NEXT .ERRNO 
328 MOV T12LOAD0 ,ERRLO sMEMORY TEST ADDRESS LOW 
MOV TI2HIADD ,ERRHI sMEMORY TEST ADDRESS HIGH 
ERRHRD ERRNO, T12NXM,ADDSSR sREPORT ADDRESS AND a os 
. WORD 
. WORD 
. WORD 
608: CKLOOP ;LOOP ON ERROR, IF FLAG ee 
FORCEXIT 90% 
TsT sIS IT A 11723A? 


TSVS - HARDWARE 


TEST 3: 
883 


SUBTEST 


030332 


030334 


TESTS 
4: NX 


001012 
013700 
005200 


020027 
101004 
010037 
000137 


M 


004737 


104403 
005737 
001402 
004737 
004737 
103002 
000137 


004737 
005037 


104432 
001540 


030260 


100004 
030270 
000000 
000010 


030302 
000000 


000001 


MACRO M1113 06-FEB-84 17:14 
TO SELECTED INVALID ADDRESSES 


030322 
000077 
030322 
027756 


017274 


002222 


017202 
016456 


026446 


017274 
003150 


65%: INC 
758: MOV 


903: 
NOEXTF: 


100$: JSR 


1058: 


3° 
;LOCAL STORAGE FOR THIS TEST 


TL2PACKET: 
. WORD 
. WORD 
WORD 

T1L2DATA: 


T12BFR: .BLKW 


TI2HIADD: 
T12LOADD : 
T12PARE6: 
T12KT: 
T124TST: 
3° 


JI 


90% 
TL2HIADD RO 
RO 

,077 

90% 

RO, TL2HIADD 
T124L00P 


PC ,.KTOFF 


FATFLG 
100$ 

PC .CKDROP 
PC, TSTLOOP 


PC ,KTOFF 
T3BFLG 
TsT 


=<, +10>€177770 


100004 
T1L2DATA 
° 

8. 
T12BFR 
te) 


0,0 


< 
i) 
ocoooo 


; 
; TABLE OF ADDRESSES 


H 
- 
T12BLK: .WORD 


000001 


SEQ 113 


sYES WERE DONE 
:GET CURRENT HIGH ADDRESS 
sGET NEXT ADDRESS 


;8R IF ES 
sSETUP NEW HIGH ORDER ADDRESS 
300 ANOTHER NON-EXISTENT ADDRESS 


s TURN OFF KT11 
S\NANANANANANN END SUBTEST SANAAASNAAAS 
L10046: 


TRAP CsESuB 
sANY FATAL ERRORS ? 
;BRANCH IF NOT 
sTRY TO DROP THE UNIT 
s;SHOULD WE DO ITERATIONS? 
;BR IF NO 
;LOOP UNTIL ITERATION COUNT DONE 


; TURN OFF MEMORY MANAGEMENT 

sCLEAR TEST FLAG 

;ALL DONE THIS TEST 
TRAP CSExIT 
«WORD L110042-. 


;COMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
;LOW ADDRESS OF MESSAGE BUFFER 
sHIGH ORDER OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sHIGH ADDRESS 

:LOW ADDRESS 

sADDRESS IN PAR FORMAT 
;TEST ABOVE 28K SWITCH 
sADDRESS TEST BIT 


TSsvS 


ed’ 


- HARDWARE 
TEST 3: SUBTEST 


938 


030336 


031227 


TESTS 


MACRO M1115 


06 


4: NXM TO SELECTED INV 


m7 
54 
ee 


om 
= 
te 
Hes 


GSESSSESSSESSSSSSSSSSUSESGSEIGSEASOSNSSENNSS 


T12TBE: WORD 


K9 


SEQ 114 


177777 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


TST12ID: 
T12GETSSR: 
TLOWRTSSR: 
T1L2MSGBUF : 
T12BKGND: 
TLQNINT;: 
T120PR; 
T12NXM; 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


‘DMA Memory Addressing’ 

‘Contents of TSSR Incorrect After GET STATUS’ 

‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS: 

‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS: 
‘Background Pattern Disturbed By WRITE CHARACTERISTICS’ 

‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 

‘Write Characteristic data in ram does not match expected’ 

‘TSSR NXM bit failed to set when non-existent memory address specifi 


TSVS - HARD 
TEST 3: SUBTEST 4 


WARE ess 


: NXM TO 


0 Sete 


030324 
030322 
030326 
170000 


017274 
003124 


017316 


CHED INVALT 


r 1 


7:14 
SSES 


-EVEN 


LOY 


SEQ 115 


3° 
;ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 


; 
F 
3 
: 
3 
3 
3 
3 
3 
; 
3; OUPTUT 
3 
3 
3 
3 
3 
i: 
T 


12CONVE 


25%: 


358: 
50$: 


DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE OI 


AGNOSTIC AND THE 


BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 
IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET 


TO THE RELOCATION BASE. 
INPUTS: 


RO 
R1 


S: 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


T12PAR6 = ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 


T12HIADD = HIGH ORDER ADDRE 


SS IN NON PAR6 FORMAT 


T12LOADD = LOW ORDER ADDRESS IN NON PAR6 FORMAT 
1 IF GOOD ADDRESS RETURNED 
C BIT = 5 IF TEST PATTERN DIO NOT YIELD A VALID ADDRESS 


C BIT = 

RT: 

SAVREG 

CLR T12LOADD0 
CLR T12HIADD 
CLR T12PAR6 
BIC @tC<7777>,R1 
MOV RO,RS 

JSR PC ,KTOFF 
MOV FREE ,R2 
ADD #16. ,R2 
ADD R1,R2 

BIC @3,R2 

MOV FREEHI RS 
SUB #16. ,R3 
MOV R2,T12L0A00 
MOV R2, TL2PAR6 
CMP R2,R3 

BHI 35% 

CMP R2,FREE 
BHIS 50$ 

TST K TENABLE 
BNE SOs 

BR 90$ 

SUB #16. ,R2 

BR 25% 

TST K TENABLE 
BEQ 100$ 

TST KTFLG 

BEQ 90$ 

JSR PC,KTON 
MOV RS,RO 

MOV RO, TL2HIADD 
MOV R2,R1 

JSR PC,SETMAP 


;SAVE R1-RS UNTIL NEXT RETURN 
sCLEAR LOW ADDRESS 

;CLEAR HIGH ADDRESS 

;CLEAR PAR6 BIASED ADDRESS 

sFORCE TO LOWER 12 BITS OF ADDRESS 
sSAVE HIGH ORDER ADDRESS BITS 
sSHUTOFF MEMORY MANAGEMENT 

3;GET FIRST FREE ADDRESS 

sIN CASE TEST PATTERN=0 

:ADD IN TEST PATTERN 

sMAKE IT MODULO-4 

3;GET LAST FREE ADDRESS 

sSAVE AT LEAST 8 WORDS CIN CASE MESSAGE BUFFER) 
;SAVE POSSIBLE LOW ADDRESS 

;SAVE IT IN PAR6 BIASED TOO 

3IS THIS ADDRESS ABOVE FREE SPACE? 
3;BR IF YES 

:IS IT IN FREE SPACE? 

;B8R IF YES- ITS GOOD 

;TESTING ABOVE 28K? 

3;BR IF YES 

;6R IF NOT IN FREE SPACE 

sFORCE FIT THE TEST PATTERN 

;TRY THIS TEST PATTERN ADDRESS 


: TESTING ABOVE 28K? 

3;68R IF NO 

sANY MEMORY ABOVE 28K? 

;BR IF NO 

3TURN ON MEMORY MANAGEMENT 

:GET HIGH ORDER ADDRESS 

;SAVE POSSIBLE HIGH ADDRESS 

;GET COMPUTED LOW ORDER ADDRESS 
;sRETURN PAR6 BIASED ADDRESS IN RO 


Test 3."SuBiest 4 


1052 031512 
1083 031516 
1054 031520 
1055 031522 
1056 031524 
1057 031526 
1058 


1108 031630 


TESTS. MA BO 
4: NXM TO SELE 


010037 030326 
3403 


Cheb rw 


M9 


SEQ 116 


TB abort séee 


MOV RO, T12PAR6 sCOPY PAR6 BIASED ADDRESS 
BCS 105$ sBR_IF VALID ADORESS 


012701 


000261 
012737 


002242 | 
000201 


016336 
000000 
016336 
000000 
016336 
000000 


000203 


000002 002302 


90$ CLC — C BIT FOR FAILURE 
BR 105$ 

100$: SEC iSET SUCCESS 

105$: RTS PC sRETURN 


3¢ 


i 
;ROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


3 

; INPUT: 

3 

F R4 ADDRESS OF THE COMMAND PACKET 

3 R5 FIRST DEVICE UNIBUS ADDRESS 

3 

; OUTPUT: 

3 

3 CARRY SET - RAM MATCHES PACKET 

3 CLR - RAM DOES NOT MATCH PACKET 


3 
s IMPLICIT OUTPUT: 
DATA HELD INR 


; 
; 
; 
: 
;SIDE EFFECTS: 
; 
; 
; 
i> 
T 


12CKRAM 
SAVREG 
Vv @RAMDATA,R1 
MOV ORMPKTBEG,R2 
CLR R3 
JSR PC,CHKTSSR 
MOVB #0, TSOBCRS) 
10$: JSR PC, CHKTSSR 
MOV R2, TSDOBCRS) 
JSR PC ,,CHKTSSR 
MOVB TSBACRS),CR1) 
CMPB C(R1)+,CR4)> 
BEQ 20% 
INC R3 
20S: INC R2 
CMP R2, ORMPK TBEG+2 
BLT 10$ 
TST R3 
BEQ 30$ 
cLCc 
BR 50$ 
30$; SEC 
50$: MOV #2 ,RAMSIZ 


THE TABLE ag cing IS FILLED WITH THE 
RAMSIZ SET TO "3 “FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


;SAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
;CLEAR THE ERROR FLAG 

;WAIT FOR SSR 

3;SET MAINTENANCE MODE 

sWAIT FOR SSR TO SET 

;SELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 

;READ THE RAM DATA 

sCOMPARE TO EXPECTED 

;BRANCH IF OK 

;SET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 
sDONE 2 BYTES? 

;68R IF NO 

;WAS AN ERROR FOUND ? 

;BRANCH IF NOT 

;CLEAR CARRY TO SHOW ERROR 
;AND EXIT 

:SHOW GOOD COMPARE 

;SETUP RAMSIZ 


N9 


TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 117 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
1109 031636 000207 RTS PC sRETURN 
1110 
1111 i¢ 
1112 ; 
a7} sROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 
= 
1115 
1116 031640 T12SWRT;: 
1117 031640 SAVREG sSAVE THE REGISTERS 
1118 031644 012701 030260 MOV @T12PACKET,R1 ;START OF THE PACKET 
1119 031650 012721 100004 MOV #100004 ,(R1)+ sWRITE CHARACTERISTICS WITH ACK 
1120 031654 012721 030270 MOV @T12DATA,C(R1)+ ;ADDRESS OF CHAR DATA BLOCK 
1121 031660 005021 CLR CR1)+ sEXTENDED ADDRESS 
1122 031662 012721 000010 “MOV 08.,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
1123 031666 012721 030302 MOV @T12BFR,(R1)+ ;ADDRESS OF MESSAGE BUFFER 
1124 031672 005021 CLR C(R1)+ 
1125 031674 012721 000016 MOV #14. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
1126 031700 005021 CLR (R1)+ 
1127 031702 005011 CLR (R1) 
1128 031704 000207 RTS PC sRETURN 
igs ‘ 
3 
tt sROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS 
5 
1133 ; R3 HIGH ORDER PACKET ADDRESS 
1134 ; R4 LOW ORDER PACKET ADDRESS 
tr ; NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 
; 
1137 t- 
1138 
1139 031706 T12SETGET: 
1140 031706 SAVREG sSAVE THE REGISTERS 
1141 031712 010401 MOV R4,R1 sGET LOW ORDER ADDRESS 
1142 031714 005737 003134 TST K TENABLE sTESTING ABOVE 28K? 
1143 031720 001404 BEQ 10$ BR IF NO 
1144 031722 010300 MOV R3,RO sGET HIGH ORDER ADDRESS 
1145 031724 004737 017316 JSR PC, SETMAP sRETURN ADORESS BIASED TO PAR6 IN RO 
1146 031730 010001 MOV RO,R1 sGET ADDRESS 
1147 031732 012700 000017 10$: MOV oP .GETSTATUS,RO ;GET STATUS COMMAND CODE NO IE 
1148 031736 052700 100000 BIS oP .ACK ,RO ;SET ACK 
1149 031742 010021 MOV RO,(R1)+ sSTORE GET STATUS IN PACKET 
1150 031744 005021 CLR C(R1)> s;CLEAR UNUSED WORD 
1151 031746 000207 RTS PC ;RETURN 
1152 
1153 
1154 “ 
1155 ; 
stae sROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 
. 
1156 - 
1159 031750 T12CHAR : 
1160 031750 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1161 031754 012700 030270 MOV @TL2DATA,RO sGET TI2PACKET DATA POINTER 
1162 031760 013701 030324 MOV TL2LOAD0,R1 sASSUME NOT ABOVE 28K 
1163 031764 005737 003134 TST K TENABLE sTESTING ABOVE 28K? 
1164 031770 001402 BEQ 10% ;BR IF 


NO 
1165 031772 013701 050326 MOV TL2PARG6 ,R1 iSET TEST ADDRESS A’ 28K 


TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 118 
TES! 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
1166 031776 012021 108; MOV (RO)+, CRI)» sSTORE DATA WORD 1 
1167 032000 012021 MOV CRO)+,CR1)D> sSTORE DATA WORD 2 
1168 032002 012021 MOV (RO)+,CR1)D> sSTORE DATA WORD 3 
1169 032004 012021 MOV CRO)+,CR1)> sSTORE DATA WORD 4 
1170 032006 012021 MOV (RO)+,CR1D> sSTORE DATA WORD 5 
Teh 032010 000207 RTS PC + RE TURN 
1173 032012 ENOTST 
032012 L10042; 


O32012 104401 TRAP CsersrT 


C10 


TERY 8. "SUBYEST UESNim rO*GEP EHS nO FB °aBGne Zee 


032140 


012737 


000000 
003400 


032344 
034472 
034544 
015774 


033370 
010662 


002216 


»SBTTL 
a 


SEQ 119 


TEST 4: RAM EXERCISER TEST 


: 

sTHIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
sLOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
sTO EXERCISE THE CONTROLLER'S RAM MEMORY AND OMA LOGIC 


BGNTST 
TST TSTCNT 
BEQ 10% 
INC SKIPT 
108: MOV @TST1SIDO,RO 
JSR PC, TSTSETUP 
MOV @S,LOCPCNT 
T1SLOOP: 
: 


3 

sTEST 4, SUBTEST 1 
; 
: RAM MEMORY SINGLE WORD (8 BITS) 
3 

i- 

BGNSUBS 


SETPRI @PRIOO 


TST SKIPT 
BEQ 10% 
JMP 503% 
108: JSR PC, TISREST 
JSR PC,TISRTO2 
JSR PC,SOFINIT 
bcs 203 
MOV RO,R1 
ERROF ERRNO, SF IERR, SF IMSG 
203; 
MOV @TISPACKET ,R4 
JSR PC,WRICHR 
BCS 23% 


MOV RO,R1 
ERRHRD ERRNO,WRIMSG, SF IMSG 


T4:; 


sCHECK FOR RUN MODE 

sBR, IF NCT ONLY PROGRAM RUN 
sSET SKIP Sw 

sASCII MESSAGE TO IDENTIFY TEST 
s00 INITIAL TEST SETUP 
sPERFORM S ITERATIONS 


THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE 


s//////////7/ BEGIN SUBTEST SSSA ///4//7/; 
T4.1: 


TRAP CsB6SuUB 

sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP CSSPRI 

sSHOULD WE SKIP THIS SUBTEST 

sBR, IF NOW SKIP REQUIRED 

sSKIP SUBTEST 

sSET COMMAND PACKET 

sSET UP OTHER COMMAND PACKET 

s00 INITIALIZE ON CONTROLLER 

sBR IF INIT WAS OK 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 401 
-WORD GFIERR 
«WORD SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
s8R, IF COMMAND ISSUED OK 

:SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


TRAP CSERMRCO 
-WORD 402 
-WORD WRITMSG 
-WORD SF IMSG 


D10 


eX? a *BRHABE APPLE, rPAGRO M1113 06-FEB-84 17:14 SEQ 120 

1229 032142 012703 000400 23%: MOV #256. ,R3 sSTARTING Saearek FOR RAM WRITE 

1230 032146 112737 000001 034101 MOVB #1, 715851 sSIZE OF TRANSF 

1231 032154 112737 000002 034100 MOVB #2,T158S0 sWRITE RAM  COMPIAND 

1232 032162 25%: 

1233 032162 010337 034102 MOV R3,T15S2 sADDRESS FOR RAM 

1234 032166 012704 034070 MOV @T1SPK2 ,R4 sWRITE SUBSYS MEM PACKET 

1235 032172 110337 034104 MOVB R3,715S5 sDATA FOR WRITE (ADDRESS) 

1236 032176 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 

1237 32202 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR 

1238 032206 103407 BCS 30$ s8R, IF NO ERROR 

1239 032210 010001 MOV RO,R1 sERROR, SAVE TSSR 

1243 032212 ERRHRD ERRNO, TISSSR,PKTSSR sTSSR NOT CORRECT AFTER WRITE SUB MEM 
032212 104456 TRAP CSERHRD 
032214 000623 «WORD 403 
032216 034106 «WORD T15SSSR 
032220 012046 «WORD PKTSSR 

1244 032222 ESCAPE SUB sD0h T CONTINUE IF ERROR ON WRITE 
032222 104410 TRAP CSESCAPE 
032224 000122 -WORD  L10050-. 

1245 032226 308: CKLOOP »SCOPE | OOP 
032226 104406 TRAP CSCLP1 

1246 

1247 

1248 032230 005203 INC R3 sNEXT ADORESS 

1249 032232 020327 010000 CMP R3,@10000 sENO OF RAM MEMORY CHECK 

1250 032236 001351 BNE 253% sLOOP TILL ALL KAM WRITTEN 

1251 032240 005002 CLR R2 sCLEAR OUT R2 HIGH BITS 

1252 9032242 005303 DEC R3 sSET BACK TO 7777 

1253 032244 110337 034104 40%: MOVB R3,T15S3 sGET DATA PATTERN BACK IN SHAPE 

1254 032250 016337 034102 MOV R3,T15S2 sADORESS FOR RAM READ 

1255 032254 112737 000001 034100 MOVB #1,7158S0 sREAD RAM COMMAND 

1256 032262 010465 000000 MOV R4, TSOBCRS) sSEND OUT PACKET ADDRESS TO CONTR: 

1257 032266 004737 016336 JSR PC,.CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 

1258 032272 103405 BCS 43% ;BR, IF NO PROBLEM 

1259 032274 010001 MOV RO,R1 iSAVE TSSR 

1263 032276 ERROF ERRNO, T1ISSSR,PKTSSR sTSSR NOT CORRECT 
032276 104455 TRAP CSEROF 
032300 000624 -WORD 404 
032302 034106 «WORD TA1SSSR 
032304 012046 «WORD PKTSSR 

1264 0323506 43%: CKLOOP sSCOPE LOOP 
032306 104406 TRAP CsCLP1 

1265 032310 013701 033432 MOV TISBFR+20,R1 sGET RAM READ DATA 

1266 032314 010302 MOV R3,R2 sSET UP FOR COMPARE 

1267 032316 129102 CMPB R1,R2 sCHECK WITH DATA WRITTEN 

1268 032320 001404 BEQ 45% 3sB8R IF OK, DATA IN = DATA OUT 

1272 032322 ERRHRD ERRNO, T15AM4,EXPBREC sWRITTEN DATA NOT = TO READ 
032322 104456 TRAP CSERHRD 
032324 000625 -WORD 405 
032326 034365 -WORD  T1SAM4 
032330 015502 -WORD EXPBREC 

1273 032332 45$: CKLOOP sSCOPE LOOP 
032332 104406 TRAP CsCiLFl 

1274 032334 005303 DEC R3 sDROP DATA COUNTER (PATTERN) 

1275 032336 020327 000377 CMP R3,0255. sAT BOTTOM YET 

1276 032342 001340 BNE 40% sBR, IF MORE TO CHECK 


1277 032344 50$; CKLOOP sSCOPE LOOP 
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1278 


1279 
1280 
1281 


032344 
032346 
032346 
032346 


032350 
032350 
032350 


104406 


104403 


104402 


MACRO M1113 06-FEB-84 17:14 
test cries 


015774 


033370 
010662 


ENOSUB 


BGNSUB 


E10 


3 
sTEST 4, SUBTEST 2 


208: 


25%: 


33%: 


SEQ 121 


TRAP 


R 
sN\N\\NNANNANNNN END SUBTEST \A\\AAN 


L10050: 
TRAP 


CsCLP1 
NNANALAN 


CSESUB 


3///////1////7/ BEGIN SUBTEST S//S/SS//4///7/ 
74.2: 


TRAP 


THIS SUBTEST WRITES RAM WITH ALL ZEROS 


THEN WALKS AN ALL ONES 


MOV 
ERRHRD 


CKLOOP 


PC, TISREST 
PC, TiSRT2 
PC, SOF INIT 
20% 


RO,R1 
ERRNO, SF IERR, SF IMSG 


@TISPACKET ,R4 
PC,WRTCHR 
25% 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


#1,7158S1 
@T1LSPK2,R4 


R4, TSOBCRS) 
PC, CHKTSSR 
33% 


RO,R1 
ERRNO, TLSSSR,PKTSSR 


WORD DOWN THROUGH MEMORY 
sRESTORE PACKET FOR WRITE CHARA 


CsBSUB 


sRESTORE PACKET FOR WRT SUB SYS MEM 


:00 INITIALIZE ON CONTROLLER 

sBR IF INIT WAS OK 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
- WORD 
. WORD 
. WORD 


SFIERR 
SF IMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


sISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
sSAVE CONTENTS OF TSSF 

sWRITE CHARACTERISTISC —- 


sSET SIZE OF TRANSFER 1 BYTE 
sSET NEW PACKET ADORESS 
sSTARTING ADORESS IN RAM 
s;WRITE RAM COMMAND 

sSET DATA TO 000 

sADORESS TO PACKET DATA AREA 
sSEND OUT PACKET ADDRESS 
sWAIT FOR SSR 

sBR, IF NO PROBLEM 

sSAVE TSSR 

:TSSR NOT CORRECT 


sSCOPE LOOP 


CSERHRD 
407 

WRTMSG 
SF IMSG 


CSERHRD 
408 
T1ISSSR 
PKTSSR 


CsCLPL 


a 


TSvS 


032716 
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F10 


MACRO M1113 06-FEB-84 17:14 
_TEST 4: RAM EXERCISER TEST 


010000 


000001 
034102 


000000 
016336 


033432 


000001 
000000 
016336 


033432 


034100 


034100 
034104 


034100 


41$: 


423: 


433: 


443: 


INC R 

CMP R3, 10000 

BNE 30$ 

DEC R3 

CLR 

MOvVB #1,T158S0 

MOV R3,T15S2 

MOV R4, TSOBCRS) 

JSR PC, CHKTSSR 

BCS ais 

MOV RO,R1 

ERRHRD ERRNO, TISSSR,PKTSSR 
CKLOOP 

MOV TISBFR+20,R1 

CMPB R1,R2 

BEQ 423 

ERRHRD ERRNO, T15AM3,EXPBREC 
CKLOOP 

MOV #000377 ,R2 

MOVB *2,T158S0 

MOVB #000377,1T15S3 

MOV R4, TSOBCRS ) 

JSR PC, CHKTSSR 

8CcS 43% 

MOV RO,Ri 

ERRHRD ERRNO, T1SSSR,PKTSSR 
CKLOOP 

MOVB #1,7158S0 

MOV R4, TSOBCRS) 

JSR PC ,CHKTSSR 

BCS 44s 

MOV RO,R1 

ERRDF ERRNO,T1SSSR,PKTSSR 
MOV T15BFR-+20,R1 

CMPB R1,R2 


BEQ 453% 
ERRHRD ERRNO, T15AM2,£xPBREC 


SEQ 122 


sNEXT ADDRESS 

sEND OF RAM MEMORY CHECK 
sBR, MORE RAM TO GO 

sSET BACK TO 7777 

sSET TO ALL. ZEROS 

sREAD RAM COMMAND 


sADDRESS TO BE READ TO PACKET DATA 


sSEND OUT PACKET ADDRESS 
sWAIT FOR SSR TO SET 
sBR, IF ALL IS WELL 
sSAVE TSSR 

sTSSR NOT CORRECT 


sSCOPE LOOP 
sPICK UP READ DATA 


sBOTH SHOULD BE 
sBR, IF DATA IS 


; WORD 
- WORD 


TRAP 


sSCOPE LOOPER 


sSET ALL ONES WORD 
;WRITE RAM COMMAND 
sALL ONES PATTE 


RN 
sPASS —“_e TO CONTR. 


;WAIT FOR S 

;B8R, IF OK (NO ERROR) 

;SAVE TSSR 

:;TSSR NOT CORRECT 
TRAP 
. WORD 
. WORD 
. WORD 

;SCOPE LOOP 
TRAP 

:SET UP FOR RAM READ 

; ISSUE RAM READ 

sWAIT FOR SSR TO SET 

;8R, IF OK CNO ERROR) 

sSAVE TSSR 

3TSSR NOT CORRECT 
TRAP 
. WORD 
. WORD 
. WORD 


sPICK UP REC'D DATA 

sCHECK WITH DATA WRITTEN 

;BR IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 


— BINARY 
;CHARACTERISTICS DATA -, aa 


CSERHRD 
409 
T1iSSSR 
PKTSSR 


CsCLP1 


CsCLP1 


CSERHRD 


CscLP1l 


TISSSR 
PKTSSR 


G1O 
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TEST 4: RAM EXERETSER Test 

032716 104456 TRAP CSERHRD 
032720 000635 -WORD 413 
032722 034162 . WORD T1SAM2 
032724 015502 -WORD EXPBREC 

1379 032726 4S$: CKLOOP sSCOPE LOOP : 
032726 104406 TRAP CSCLP1 

1380 032730 005303 DEC R3 sDROP RAM ADDRESS POINTER 

1381 032732 020327 000377 CMP R3,0255. 3AT START YET 

se 032736 001271 BNE 40$ :6R, IF MORE RAM TO CHECK 

1 

1384 032740 ENOSUB SNANNANANANANN END SUBTEST ANAANANNAANAYN 
032740 110051: 

— 032740 104405 TRAP CsESuUB 

1386 0352742 BGNSUB 3//////////// BEGIN SUBTEST S/SS/SS/////7/ 
032742 74.3: 
032742 104402 TRAP CsBSU8 

1387 se 

1388 ; 

1389 . ;TEST 4, SUBTEST 3 

1390 3 

1391 3 

1392 3 THIS SUBTEST WRITES RAM WITH ALL ONES 

téos ; THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 

° 

1395 032744 005737 003400 TST SKIPT sCHECK RUN MODE 

1396 032750 001402 BEQ 10$ :6R, IF NO SKIP 

1397 032752 000137 033346 JMP 50% sSKIP SUBTEST 

1398 032756 004737 034472 10$: JSR PC, TISREST sRESTORE PACKET FOR WRITE CHARA 

1399 032762 004737 034544 JSR PC, TiSRTO sRESTORE PACKEY FOR WRT SUB SYS MEM 

1400 032766 004737 015774 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

1401 032772 103405 Bcs 20% 38R IF INIT WAS OK 

1405 032774 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

1406 032776 ERROF ERRNO, SF TERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
032776 104455 TRAP © SERDF 
033000 000636 -WORD 414 
033002 003652 -WORD SFIERR 
033004 012034 WORD SF IMSG 

1407 033006 208: 

1408 033006 012704 033370 MOV @TISPACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

1409 033012 004737 010662 JSR PC,WRTICHR ; ISSUE WRITE CHARACTERISTICS 

1410 033016 103405 6cs 253 38R, IF COMMAND ISSUED OK 

1414 033020 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

1415 033022 ERRHRD ERRNO,WRITMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
033022 104456 TRAP CSERHRD 
033024 000637 -WORD 415 
033026 005056 -WORD WRITMSG 
033030 012034 . WORD SF IMSG 

1416 033032 258: 

1417 033032 112737 000001 034101 MOVB #1,7158S1 :SET SIZE TO 1 BYTE 

1418 033040 012704 034070 MOV @T1SPK2,R4 sSET NEW PACKET ADDRESS 

1419 033044 0612703 000400 MOV 256. ,.R3 sSTARTING ADDRESS IN RAM 

1420 033050 112737 000002 034100 MOVS #2,7T158S0 ;WRITE RAM COMMAND 

1421 033056 112737 000377 034104 MOVB 377,715S3 3SET DATA TO 377 

1422 033064 010337 034102 30%: MOV R3,T15S2 sADDRESS TO PACKET DATA AREA 

1423 033070 010465 000000 MOV R4,TSOB(RS) :SEND OUT PACKET ADDRESS 


1424 033074 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR 


TSsv5 
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033100 
033102 
033104 
033104 
033106 
033110 
033112 
033114 
033114 


033116 


AEF len teetee M1115 O6-FEB-84 17:14 


033432 


000001 
000000 
016336 


034100 


33%: 


358: 
408: 


41%: 


42%: 


43%: 


BCS 
MOV 
ERRHRD 


H10 


33% 
RO,R1 
ERRNO, T15SSR,PKTSSR 


R3 
R3,@10000 
30$ 


R3 

0377 ,R2 
#1,T156S0 
R3,715S2 
R4, TSOBCRS) 
PC, CHKTSSR 
41% 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


TiISBFR+20,R1 
R1,R2 


423 
ERRNO, T15AM3,EXPBREC 


0000377 ,R2 
#2,T158S0 
#000377,T15S3 
R4, TSOBCRS) 
PC,.CHKTSSR 
43% 


RO,R1 
ERRNO, T1SSSR,.PKTSSR 


#1,7158S0 

R4, TSOBCRS) 

PC, CHKTSSR 

44% 

RO,R1 

ERRNO, TISSSR,FKTSSR 


SEQ 124 


s6R, IF NO PROBLEM 
sSAVE TSSR 
sTSSR NOT CORRECT 


TRAP CSERHRD 

-WORD 416 

-WORD TA1SSSR 

«WORD PKTSSR 
sSCOPE LOOP 

TRAP CsCLP1 
sNEXT ADDRESS 


sENO OF RAM MEMORY CHECK 
3BR, MORE RAM TO GO 

sSET BACK TO 7777 

sSET TO ALL ONES 

sREAD RAM COMMAND 
sADDRESS TO BE READ TO PACKET DATA 
sSEND OUT PACKET ADDRESS 
sWAIT FOR SSR TO SET 
sBR, IF ALL IS WELL 
sSAVE TSSR 

sTSSR NOT CORRECT 


TRAP CSERHRD 

«WORD 417 

-WORD  T15SSR 

-WORD PKTSSR 
sSCOPE LOOP 

TRAP CsCLPi 


sPICK UP READ DAIA 
sBOTH SHOULD BE 11111111 BINARY 
:BR, IF DATA IS GOOD 
sCHARACTERISTICS DATA NOT CORRECT 
TRAP CSERHRD 
WORD 


-WORD T1SAM3 
-WORD EXPBREC 
;SET ALL ONES WORD 
sWRITE RAM COMMAND 
sALL ONES PATTERN 
sPASS PACKET ADDRESS TO CONTR. 
sWAIT FOR SSR 
:BR, IF OK (NO ERROR) 
sSAVE TSSR 
:TSSR NOT CORRECT 
TRAP CSERHRD 
-WORD 419 
- WORD TiSSSR 
«WORD PKTSSR 
sSCOPE LOOP : 
TRAP CSsCLPL 


;SET UP FOR RAM READ 

; ISSUE RAM READ 

sWAIT FOR SSR TO SET 

;BR, IF OK (NO ERROR) 
;SAVE TSSR 

:TSSR NOT CORRECT 


Tsv5 
TEST 


HAROW 


ARE TESTS 
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033370 


100204 
033400 
000000 


MACRO M1113 06 
est 


033432 


006377 


016456 
032044 


T10 


-FEB-84 17:14 


443: MOV TISBFR+20,R1 
CMPB R1,R2 
BEQ 453 
ERRHRD ERRNO, T1SAM2,EXPBREC 
45$: CKLOOP 
DEC R3 
CMP R3,9255. 
BNE 40$ 
50$: 
ENOSUB 
JSR PC, TSTLOOP 
Bcc 63% 
UMP T15..00P 
635: EXIT TST 


3° 
;LOCAL STORAGE FOR THIS TEST 
§* 


. *¢,¢10>€177770 
TLISPACKET: 
. 100204 


TISDATA 


TISDATA: 


caSSE 5355 


TLSBFR: 
; 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
; 

-*<,#10>E177770 


TiSPK2; 
. WORD 100206 
. WORD T158F2 
-WwORDB O 
.WORD 6. 
~EVEN 


T156F 2: 


SEQ 125 
TRAP C SERHRD 
«WORD 420 
-WORD TA1SSSR 
-WORD PKTSSR 
sPICK UP REC’'D DATA 
sCHECK WITH DATA WRITTEN 
sBR IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 
TRAP CSERHRO 
«WORD 421 
«WORD TISAM2 
-WORD EXPBREC 
sSCOPE LOOP 
CSCLP1 


TRAP 
sDROP RAM ADDRESS POINTER 
3AT START YET 


;6R, IF MORE RAM TO CHECK 
S\NNNANANNANAN END SUBTEST \ANANAAAANAASA 
L100Se: 
TRAP Csesus 
300 WE NEED TO ITERATE TEST ? 
sBRANCH IF NOT 
sEXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP CSExIT 
. WORD L10047-. 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADORESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


J10 
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TEST 4: RAM EXERCISER TEST 
1529 034100 000 T156SO: .BYTE 0 ;B8SELO AREA 
1530 034101 000 T1iS8S1: .BYTE 0 ;B8SEL1 AREA 
1531 034102 000000 T15S2: .WORD 0 sSEL 2 AREA 
Ett 034104 000000 T15S3: .WORD 9 :DATA AREA 
1534 
1535 
1536 
1537 3° 
1538 ;LOCAL TEXT MESSAGES FOR TEST 
1 
1541 034106 127 122 111 TiSSSR: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
1542 034162 127 122 111 TiSAM2: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On All Ones Word Read Sack’ 
1543 034263 127 1c2 111 TiSAM3: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On All Zeros Word Read Back’ 
1544 034365 127 122 111 TiISAM4: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On Address Test’ 
1545 034453 122 101 115 TSTiSIO: .ASCIZ ‘RAM Exerciser’ 
1546 .EVEN 
1547 3° 
1548 ; 
1549 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
1550 ;WRITE SUBSYSTEM MEMORY COMMAND 
i551 3 
1552 i: 
1553 
1554 034472 TISREST: 
1555 034472 SAVREG ;SAVE THE REGISTERS 
1556 034476 012701 033370 MOV @TISPACKET,R1 :START OF THE PACKET 
1557 034502 012721 100204 MOV #100204 ,(R1)>+ ;WRITE SUBSYSTEM MEM. WITH ACK, IE 
1558 034506 012721 033400 MOV @TISDATA,(R1)> sADORESS OF CHARAISTICS DATA BLOCK 
1559 034512 005021 CLR CR1)> sEXTENDED ADDRESS 
1560 034514 012721 000010 MOV 08. .CR1)-> :SIZE OF DATA BLOCK IN BYTES 
1561 034520 012721 033412 MOV @TiISBFR,CR1)> sADDRESS OF MESSAGE BUFFER 
1562 034524 005021 CLR CR1)> 
1563 034526 012721 000400 MOV 0256. .¢R1)+ ;LENGTH OF MESSAGE BUFFER 
1564 034532 005021 CLR CR1)-+ 
1565 034534 005011 CLR (RL) 
1566 034536 005037 033412 CLR T1LSBFR ;CLEAR 1ST LOC IN MESSAGE BUFFER 
1567 034542 000207 RTS PC ;RETURN 
1568 
1569 
1570 034544 TiSRTe2: 
1571 034544 SAVREG ;SAVE THE REGISTERS 
1572 034550 012701 034070 MOV @T15PK2,R1 sSTART OF THE PACKET 
1573 034554 012721 100206 MOV #100206,(R1)+ ;sWRITE SUBSYSTEM MEM. WITH ACK, IE 
1574 034560 012721 034100 MOV @T15BF2,(R1)-+ sADDRESS OF DATA BLOCK 
1575 034564 005021 CLR (R1)>+ sEXTENDED ADDRESS 
1576 034566 012721 000006 MOV 06.,(R1)> 3;SIZE OF DATA BLOCK IN BYTES 
1577 034572 005021 CLR CR1)> 
1578 034574 005021 CLR (R1)> 
1579 034576 005011 CLR CR1) 
1580 034600 000207 RTS PC ;RETURN 
1581 034602 ENOTST 

034602 1 


0047: 
034602 104401 TRAP CsETST 


K1LO 
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TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS a8 = 


012700 036662 
004737 016510 
012737 000012 002216 


-SBTTL TEST S: EXTENDED FEATURES SWITCH AND TIMERS A,8 
see 
TEST DESCRIPTION: 
This test verifies the Invert Extended Features function 
can logically invert the Extended features switch and 
that the internal timers A and B operate correctly. 
TEST STEPS: 


; 
; 
; 
; 
; 
; 
; 
; 
; REPEAT FOR LOOPCNT 
; BEGIN 

: 

; 

; 

; 


Do Subtest 1 - Verify Extended Features Switch 
Do Subtest 2 - Verify Timers A,B 
END 
BGNTS! * 
MOV @TST16ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
‘apes MOV #10. ,LOOPCNT ;PERFORM 10 ITERATIONS 


-SBTTL TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


oe 
TEST S: SUBTEST 1: 
SUBTEST DESCRIPTION: 


This subtest verifies that the Invert Sense of Extended features 
Switch function (Write Subsystem Memory,Write Misc command) 
operates properly. 

First the state of the Extended Features switch is read in the 
message packet supplied by the write characteristics command. 
Then, the sense of the switch is logically inverted. 

A Write characteristics command is executed and it is verified 
that the Extended status register (XST4) is returned when 

in Extended mode, and not returned if not in extended mode. 
The subtest also verifies that specifying a Message Buffer 
address with any of bits 21-19 ,set will cause the command to 
be rejected. 


TEST STEPS: 


BEGIN 

Write to TSSR register to soft initialize the controller 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

can neneee Features Hardware Switch CLEAR 
(* Verify Extended Features switch can be Inverted to SET «) 
Do Write Subsystem Write Miscellaneous to SET Extended Features. 
DO a WRITE CHARACTERISTICS with an extended characteristic word 
Compare the controller ram to the extended characteristic word 


TSVS -_ HARDWARE TESTS 
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104402 


012701 
032761 
001402 
000137 
012703 


MACRO M1113 
VERIFY EXTENDED FEA 


015774 


040030 
002222 
040210 
010662 


002222 


040232 
000200 


035306 
002764 


000012 


06 -F 


ag 
= 


T 


a 
10$: 


12$: 


208: 


L10 


SEQ 128 


We 
=aN 
ry 
- 


If Data word in controller ram NOT= to word sent Then Print Error 
= oe Message Buffer Data Length NOT= 12. Then Print Error 

(* Verify = Sa a Features switch can be Inverted to CLEAR «) 

Do Write Subs ere tem Write Miscellaneous to CLEAR Extended Features. 

Do a WRITE C ACTERISTICS without an extended characteristic word 
oe Buffer Data Length NOT= 10. Then Print Error 
(* Verify Function Reject when Message Buffer 21-19 are non-zero *) 
Write to TSSR register to soft initialize the controller 
REPEAT FOR MESS BUFFER ADDRESS bits <21:19> FROM O TO 7 
DO ea WRITE CHARACTERISTICS with a mess address bit<21:19> non-zero 
mS 1. I seria code NOT= Function Reject Then Print Error 


BGNSUB AA AAAA AAA — SUBTEST ////////// 
T . 


TRAP CsB6SUB 


Write to TSSR register to soft initialize the controller 
JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 


BcsS 10$ 3;8R IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO, SFIERR, SF IMSG sDEVICE FATAL DURING INIT 
TRAP CSEROF 
-WORD 500 
.WORD SFIMSG 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

JSR PC, TI6REST sRESTORE PACKET DEFAULTS 

CLR FATFLG ;CLEAR FATAL ERROR FLAG 

MOV @T16PACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 

JSR PC,.WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

FORCERROR 12$ s;@@DOFORCE ERROR IF FORCER=1 

BcS 15$ 3;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDOF ERRNO, T16SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 501 


-WORD T16SSR 


WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


If Extended Features Hardware Switch Clear then: 
(*# Verify Extended Features switch can be Inverted to SET +) 
REPEAT F TEST PATTERNS IN TSTBLK TABLE 
MOV #T16BFR,R1 sMESSAGE BUFFER ADDRESS 
BIT exe. EXTF, xST2(R1) sEXTENDED FEATURES SWITCH CLEAR? 
= 20% ;68R IF YES 


200$ 3 
MOV #TSTBLK+10. ,RZ 3START OF TEST DATA 


: MLO 
TEST “Sn SUBTEST I: VERIFY EXTENDED FEATURES TEST ppb 


ett : Do Write Subsystem Write Miscellaneous to SET Extended Features. 

1691 034746 004737 040170 JSR PC, T1I6SEXT 3;SETUP PACKET FOR WRITE MISC INVERT 

1692 034752 012704 040260 MOV @T16PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

1693 034756 010465 000000 MOV R4,TSOBCRS) 3;SET THE PACKET ADDRESS TO EXECUTE 

1694 034762 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

1695 034766 FORCERROR 32$ s;Q@@0FORCE ERROR IF FORCER=1 

1696 035002 103407 6cs 40$ ;BR IF CARRY SET (GOOD RETURN) 

1697 035004 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1698 035006 NEXT .ERRNO 

1699 035006 32$: ERROF ERRNO, T162SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
035006 104455 TRAP CSERDF 
©35010 000766 .» WORD 502 
035012 036767 ~ WORD T162SSR 
035014 012046 .WORD PKTSSR 

1700 035016 005237 002222 INC FATFLG 3;SET FATAL ERROR FLAG 

1701 035022 40$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

702 035022 104406 TRAP CSCLP1 

1 

1703 : DO ea WRITE wee with an extended characteristic word 

1704 035024 012737 125252 002312 MOV #125252 ,.DATA SETUP TEST DATA Ay EXTENDED WORD 

1705 035032 012704 040210 MOV @TL6PACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 

1706 035036 012764 000020 000006 MOV 016. ,PKBCNT(R4) s;STORE MESSAGE PACKET SIZE 

1707 035044 013737 002312 040230 MOV DATA, TI6DATA+10 sSTORE TEST DATA IN EXTENDED WORD 

1708 035052 004737 010662 JSR PC,WRTCHR 300 WRITE CHARACTERISTJ-S COMMAND 

1709 035056 FORCERROR 42s s;@Q@OFORCE ERROA IF FORCER=1 

1710 035072 103407 BcS So¢$ ;6R IF CARRY SET (GOOD RETURN) 

1711 035074 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 

1712 035076 NEXT .ERRNO 

1713 035076 42s: ERRDF ERRNO, T16SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
035076 104455 . TRAP CSEROF 
035100 000767 wo8D 503 
035102 036732 WORT T16SSR 
035104 012046 .WORD PKTSSR 

1714 035106 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

1715 035112 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
035112 104406 TRAP CsCL_P1 

1716 : If the TSBA Address Register NOT= Expected Then Print Error 

1717 035114 016501 000000 MOV TSBACRS),R1 3;GET TSBA REGISTER CONTENTS 

1718 035120 012702 040232 MOV OT16BFR,R2 s;START OF THE DATA BUFFER 

1719 035124 062702 000020 628: ADD #16. ,R2 ;EXPECTED CONTENTS OF TSBA 

1720 035130 FORCERROR 72$,NOTSSR s;Q@@DFORCE ERROR IF FORCER=1 

1721 035140 020102 CMP R1,R2 ;COMPARE EXPECTED TO RECEIVED 

1722 035142 001404 BEQ 80$ ;ERROR IF NOT EQUAL 

1723 035144 NEXT .ERRNO 

1724 035144 72$: ERRHRD ERRNO, T16TSBA,EXPREC sPRINT THE ERROR &€ EXPD/RECV 
035144 104456 TRAP CSERHRD 
035146 000770 . WORD 504 
035150 9037100 .WORD T1L6TSBA 
035152 015474 .WORD EXPREC 

1725 035154 80$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
035154 104406 TRAP CSCLP1 

1726 ; Compare the controller ram to the extended characteristic word 

1727 ; If Data word in controller ram NOT= to word sent Then Print Error 

1728 035156 012704 040220 MOV #T16DATA,R4 ;GET CHARACTERISTIC DATA ADDRESS 

1729 035162 004737 011224 JSR PC ,CKRAM2 ;DO0ES RAM DATA EQUAL DATA SENT? 


1730 035166 FORCERROR 92% ;@@OFORCE ERROR IF FORCER=1 
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103404 


104456 
000771 
004745 
015510 


104406 


012702 
016201 
012702 


020102 
001404 


104456 
000772 
037202 
015474 


104406 
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015774 


035466 


040170 
040260 
000000 


016336 


002222 


N10 


SEQ 130 

:BR IF YES 

sREPORT THE RAM ERROR(S) 
TRAP CSERHRD 
«WORD 505 
-WORD PKTRAM 
.WORD RAMERR 

sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


If Mess rire” Data Length NOT= 12. Then Print Error 


sGET MESSAGE BUFFER ADDRESS 

sGET RECV DATA FIELD LENGTH 

sGET EXPD DATA FIELD LENGTH 
s@@OFORCE ERROR IF FORCER=1 

sCOMPARE EXPECTED TO RECEIVED 

sERROR IF NOT EQUAL 


sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 


«WORD 506 

-WORD TI16LEN 

-WORD EXPREC 
;LOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


sWRITE TO TSSR TO SOFT INITIALIZE 
;BR IF SOFT INIT OKAY 
sSAVE CONTENTS OF TSSR 
;DEVICE FATAL DURING INIT 
TRAP > sa 


-WORD SFIERR 
-WORD  SFIMSG 


TRAP CsCLP1 


;LOOP IF SELECTED 


Verify Extended Features switch can be Inverted to CLEAR «) 
Do Write Subsystem Write Miscellaneous to CLEAR Extended Features. 


-FEB-84 17:14 
TURES TEST 
bcs 100$ 
NEXT .ERRNO 
92s: ERRHRD ERRNO, PKTRAM,RAMERR 
100$: CKLOOP 
Hy 
MOV #T16BFR,R 
MOV 2CR2),R1 
MOV #12. ,R2 
FORCERROR 112$,NOTSSR 
CMP R1,R2 
BEQ 120$ 
NEXT. ERRNO 
112%: ERRHRD ERRNO, T16LEN,EXPREC 
120$: CKLOOP 
JSR PC, SOF INIT 
bcs 125$ 
MOV RO,R1 
ERROF ERRNO, SFIERR, SF IMSG 
125%: CKLOOP 
JMP 300$ 
3 (4 
2008: 
; JSR PC, T16SEXT 
MOV @Ti6PK2, R4 
MOV R4, TSOBCRS) 
SR PC,CHKTSSR 
FORCERROR 232s 
6cs 24 
MOV RO,R1 
NEXT .ERRNO 
232s: ERROF ERRNO, T162SSR,PKTSSR 
INC FATFLG 
240%: CKLOOP 


sSETUP PACKET FOR WRITE MISC INVERT 
s;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
;WAIT ages SSR TO SET 

@ADFORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


“WORD T162SSR 


-WORD PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 
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012704 
012764 
004737 


104406 


013701 
012702 
020102 
001404 


104456 
000775 
037202 
015474 


104406 


012737 


012704 
012764 
013700 
000003 


010037 
010465 
004737 


103407 
010001 


104455 
000776 
036732 
012046 
005237 


MACRO _M 


002222 


040234 
000012 


002222 


002312 


2423; 


2623: 


2708: 


342%: 


Bi 


SEQ 151 


DO e WRITE td aaa without an extended cheracteristic word 


7:14 

T 

MOV @TI6PACKET 

MOV #14, -PROCNTCRA) 
JSR PC ,WRICHR 
FORCERROR 242% 
6cs 250 

MOV RO,R1 

NEXT. ERR 


NO 
ERROF ERRNO, TI6SSR,PKTSSR 


1GET THE ADDRESS OF COMMAND PACKET 

sSTORE MESSAGE PACKET SIZE 

100 WAITE CHARACTERISTICS COMMAND 
@SOFORCE ERROR IF FORCER=1 

18R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


sOEVICE FATAL SSR —, A SET 


CsEROF 
"MORO 508 
. WORD T16SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
— eriern: wet 34 Date Length NOT= 10. Then Print Error 
= sGET RECV DATA FIELD LENGTH 
nov #10. sGET EXPD DATA FIELD LENGTH 
CMP Ricks sCOMPARE EXPECTED TO RECEIVED 
BEQ 2708 sERROR IF NOT EQUAL 
NEXT .ERRNO 
ERRHRD ERRNO, T16LEN,EXPREC sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
«WORD 509 
. WORD TI6LEN 
-WORD EXPREC 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


(@ Verify Function Reject when Message Buffer 21-19 are non-zero +) 
Write to TSSR register to soft initialize the cortroller 


REPEAT FOR = BUFFER ADDRESS bits <21:19> FROM O TO 7? 


sSTART AT BITS<21:19>*001 


DO a WRITE CHARACTERISTICS with @ message eddress bit<21:19> non-zero 


MOV #1,DAT 

MOV @TI6PACKET ,R4 
MOV 014. ,PKBCNT(R4) 
MOV DATA,RO 

REPT § 

ASL RO 

-ENOR 

MOV RO, TI6DATA+2 
MOV R4,TSDBC(RS) 

JSR PC,WALTF 
FORCERROR 3428 
Bcs 

MOV RO,R1 

NEXT .ERRNO 

ERROF ERRNO,T16SSR,PKTSSR 
INC FATFLG 


sGET THE ADORESS OF COMMAND PACKET 
sSTORE MESSAGE PACKET SIZE 
sGET TEST DATA 


sSHIFT INTO BITS 21:19 


sSTORE BUFFER ADORESS BITS 21:19 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR 

s8BOFORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOO RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 510 
. WORD TL6ESSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 


Cil 


TSsvsS - A TEST 4 
Tee ete ee ES Sent ABR PAAES FPRIGAP SOF dF! SEQ 152 

1811 035570 3508; CKLOOP sLOOP ON ERROR, IF FLAG SET 

102 035570 104406 TRAP CSCLPi 

1813 : If TSSR termination code NOT* Function Reject Then Print Error 

1814 035572 016501 000002 MOV ei R1 sGET RECV TSSR 

1815 035576 010102 MOV R1,R sCOPY RECv TSSR 

1816 035600 042702 000016 BIC PTERCLS.R2 sCLEAR TC<2:0> EXPD 

i817 035604 052702 000006 BIS @TSREJ,R2 sSET EXPO TC<2:0>* FUNCTION REJECT 

1818 035610 FORCERROR 352% ,NOTSSR sQ8G0FORCE ERROR IF FORCER=1 

1819 035620 020102 CMP R1,R2 sEXPD EQUAL RECV? 

1820 035622 001404 BEQ 3608 36R IF YES 

1821 035624 NEXT .ERRNO 

1822 035624 352%: ERRHRD ERRNO, TIGREJ,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035624 104456 TRAP CSERMRD 
035626 000777 -WORD 511 
035630 037314 » WORD TI6REJ 
035632 012046 . WORD PKTSSR 

1823 035634 3608: CKLOOP sLOOP ON ERROR, IF FLAG SET 
035634 104406 TRAP CSCLPi 

1824 035636 FORCEXIT 3708 

1825 035646 005237 002312 INC DATA 3sGET NEXT TST PATTERN 

1826 035652 023727 092312 000007 CMP DATA, 97 sDONE ALL DATA? 

1827 035660 101002 BHI 3703 38R IF YES 

1828 035662 000137 035474 JMP 325% 300 ANOTHER TEST PATTERN 

1829 3 ENO -REPEAT 

1830 035666 3708: 

1831 035666 ENOSUB s///4/11414144 END SUBTEST SSA/A/4 4/047 
035666 L10054; 

1832 035666 104403 TRAP CsESsSus 

1833 035670 005737 002222 TST FATFLG sANY FATAL ERRORS ? 

1834 035674 001402 BEQ 460% sBRANCH IF NOT 

1835 035676 004737 017202 JSR PC ,CKDROP sTRY TO DROP THE UNIT 

1836 035702 4603: 

1837 

1838 

1839 

1840 

1841 

ey -SBTTL TEST 5: SUBTEST 2: VERIFY TIMERS A,B 

1844 see 

1845 3: TEST 5S: SUBTEST 2: 

1846 5 

pot 3 SUBTEST DESCRIPTION: 

3 

18649 ; This subtest verifies that timers A,B can be reset 

1850 : and that Timer A is twice the frequency of Timer 3. 

1851 3 Timer A has a period of 25 microseconds and Timer B 

1852 : hes ea period of 50 microseconds. The timers are 

pi ; checked at 1, 28, 53, and 78 micoseconds. 

3 

1855 3: TEST STEPS: 

1856 3 

1857 : 

1858 ; Write to TSSR register to soft initialize the controller 

1859 3 Do WRITE CHARACTERISTICS to setup a Message Buffer 


Dil 


TeX? “stPBOROBET SS Jen rP ACPO PALI p06 FEB-64 17:14 


035702 
035702 
035702 


035704 


035722 
035724 


015774 


002222 


000001 
036652 
040142 
040260 


000000 
016336 


3 
108: 


128: 


SEQ 133 


vot Timers A efter RESET TIMER with O microsecond delay *) 
a writ e Control RESET TIMER with 1 microsecond delay 


a write Subsystem READ STATUS 


Timer A NOT* O Then Print Error 

Timer B NOT= 0 Tren Print Error 

ay att Timers A,B after RESET TIMER with 28 microsecond delay +) 
e 


e Wri 


Control RESET TIMER with 28 microsecond delay 


Timer 6 NOT= 1 Then Print Error 
e Write Control oo TIMER with 53 microsecond delay 
Timer A NOT* 0 Then Print Error 
Timer 6 NOT= 1 Then Print Error 
a Write Control RESET TIMER with 78 microsecond delay 
Timer A NOT= 1 Then Print Error 
Timer 8 NOT= O Then Print Error 


BGNSUB 


(¢ 
Do 
Do 
If 
If 
(a 
Do 
. Timer A NOT= 1 Then Print Error 
Do 
If 
If 
Do 
If 
If 


37//////7////7/ BEGIN SUBTEST S/S ////4///7/ 
TS.2: 
TRAP CsBSUB 


Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT 
10$ 


RO,R1 
ERROF  ERRNO,SFIERR,SFIMSG 


sWRITE TO TSSR TO SOFT INITIALIZE 
3BR IF SOFT INIT OKAY 

sSAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING ~~, 


CSERDF 
-WORD 511 
-WORD SFIERR 


«WORD  SFIMSG 


Do WRITE ova to setup ea Mess 


JSR PC,T 
CLR FATFLG 
MOV @TI6PACKET ,R4 
MOV 08. ,PKBCNT(R4) 
JSR PC,.WRICHR 
FORCERROR les 
6cS 15% 

Vv RO,R1 
NEXT .ERRNO 


ERROF ERRNO,T16SSR,PKTSSR 


INC FATFLG 
CKLOOP 


oge Buffer 

sRESTORE PACKET DEFAULTS 

sCLEAR FATAL ERROR FLAG 

sGET THE ADDRESS OF COMMAND PACKET 

sMESSAGE PACKET SIZE NO EXTEND 

300 WRITE CHARACTERISTICS COMMAND 
s8GDFORCE ERROR IF FORCER=1 

3;6R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAF 


«WORD 512 
-WORD T16SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CSsCLPL 


(@ Verify Timers A,B after RESET TIMER with 1 microsecond delay «) 
Do a Write Control RESET TIMER with 1 microsecond delay 


MOV Ooms .RSD,RO 
MOV T16001,R1 
JSR PC, TI6WMISC 
MOV @T16PK2 ,R4 
MOV R4, TSDBC(RS) 
JSR PC, CHKTSSR 
FORCERROR 32% 


sRESET TIMER COMMAND 
31 MICROSECOND DELAY 
sSETUP T16PK2 COMMAND PACKET 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

sQ@BOFORCE ERROR IF FORCER=1 
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015552 
104406 


012700 
013701 
004737 
012704 
010465 
004737 


acne 


VERIFY TIME 


002222 


000010 
000004 
040252 


000002 
177763 


002222 


000010 
000004 
040252 
000002 


il 
RS 8 


3238: 


728: 


112s: 
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Ell 


SEQ 134 


BCS 40$ 368R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERROF ERRNO, '162SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
» WORD 513 
» WORD T162SSR 
WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 
If Timer A NOT= OO Then Print Error 


YY ioe NOT= 0 Then Print Error 


4 
@S2.ATIM,R2 


BIC @S2.BTIM,R2 

MOV @TL6BFSTA,RO 

MOV 2CRO),R1 

BIC @tC<S2.ATIM!S2.BTIM>,R1 
FORCERROR 72$,NOTSSR 

CMP R2,R1 

BEQ 80% 

NEXT .ERRNO 

ERRHRD ERRNO, 116701, TIMEXP 
CKLOOP 


sINIT EXPD 

sTIMER A EXPD=0 

s TIMER B EXPD=0 

sGET RECV READ STATUS 
sGET RECV BYTE 2 

sSAVE TIMER A:B RECV ONLY 


; 880 
sEXPD EQUAL RECV? 
;6R IF YES 


sREPORT ERROR 
TRAP CSERHRD 


WORD 514 

WORD T16TO1 

-WORD TIMEXP 
sLOOP ON ERROR, IF FLAG SET 

TRAP CscLP1 


Do a Write Control RESET TIMER with 28 microsecond delay 
@Ms .RSD,RO 


sRESET TIMER COMMAND 
328 MICROSECOND DELAY 
sSETUP T16PK2 COMMAND PACKET 
sGET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@QOFORCE ERROR IF FORCER=-1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


-WORD 515 
«WORD T162SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLPL 


s INIT EXPO 

sTIMER A EXPD=1 

s TIMER B EXPD=1 

:GET RECV READ STATUS 


MOV 

MOV 716028, RL 

JSR PC, T16OWMISC 

MOV OTI6PK2,R4 

MOV R4,TSOBCRS) 

JSR PC, CHKTSSR 

FORCERROR 112$ 

6csS 120% 

MOV RO,R1 

NEXT .ERRNO 

ERRDF ERRNO, 1162SSR,PKTSSR 

INC FATFLG 

CKLOOP 

If Timer A NOT= 1 Then Print Error 
If Timer B NOT= 1 Men Print Error 
CLR R2 

BIS @S2.ATIM, Ras 

BIS #S2.BTIM,R2 ; 

MOV OT16BFSTA,RO , 

MOV 2(RO),R1 


3GET RECV BYTE 2 
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1948 036262 042701 177763 
1949 036266 

1950 036276 
1951 036300 
1952 036302 


1953 036302 


002222 


000010 
000004 
040252 
000002 
177763 


001404 


000001 
036660 
040142 
040260 
000000 
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TEST S: SUBTEST 2: VERIFY TIMERS A,B 


1728: 


; 212s: 


2728: 


Fil 


SEQ 135 


BIC an otC<S2.ATIM!S2.BTIM>,R1 ;SAVE TIMER A:B RECV ONLY 


FORCERROR 172$,NOTSSR 3880 

CMP Re, sEXPD EQUAL RECV? 

BEQ 180$ s6R IF YES 

NEXT .ERRNO 

ERRHRD ERRNO, T16T28, TIMEXP sREPORT ERROR 
TRAP 
. WORD 
. WORD 
. WORD 

CKLOOP sLOOP ON ERROR, IF FLAG aa. 


Do a Write Control RESET TIMER with 53 microsecond delay 
MOV @MS .RSD,RO sRESET TIMER COMMAND 


CSERHRD 


CsCLP1 


MOV T16053,R1 353 MICROSECOND DELAY 
JSR PC, T16OWMISC sSETUP T16PK2 COMMAND PACKET 
MOV OTI6PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 212s s@80FORCE ERROR IF FORCER=1 
BCS 220% 3;6R IF CARRY SET (GOOD RETURN 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 517 
«WORD T162SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
If Timer A NOT= O Then Print Error 
If Timer B NOT= 1 Then Print Error 
CLR Re s INIT EXPD 
BIC @S2.ATIM,R2 sTIMER A ExPD-=0 
BIS @S2.BTIM,R2 ; TIMER B ExPD=1 
MOV @T16BFSTA,RO sGET RECV READ STATUS 
MOV 2(RO),R1 :GET RECV BYTE 2 
BIC orc<S2. ATIM!S2.B6TIM>,R1 } SAVE TIMER A:B RECV ONLY 
FORCERROR 272$,NOTSSR ; 880 
CMP R2,R1 ;EXPD EQUAL RECV? 
BEQ 2808 ;BR IF YES 
NEXT .ERRNO 
ERRHRD ERRNO,T16153, TIMEXP sREPORT ERROR 
TRAP CSERWRD 
WORD 518 
. WORD T16T53 
. WORD TIMEXP 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRA CSCLP1 


Do a Write Control RESET TIMER with 78 microsecond delay 
MOV @MsS .RSO,RO sRESET TIMER COMMAND 


MOV T16078,R1 378 MICROSECOND DELAY 

JSR PC, T16WMISC sSETUP T16PK2 COMMAND PACKET 

MOV OT16PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 


TSvS 
TEST 
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JSR -" CHKTSSR sWAIT FOR SSR TO SET 
FORCERR 312$ s9@OFORCE ERROR IF FORCER<1 
BCS ;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
3128: ERRDF ERRNO,T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 519 
» WORD T162SSR 
WORD PKTSSR 
INC FATFLG 3;SET FATAL ERROR FLAG 
3208 CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
: If Timer A NOT= 1 Then Print Error 
3 If Timer 8 NOT= 90 Then Print Error 
CLR R2 sINIT ExPD 
BIS @S2.ATIM,R2 * ;TIMER A EXPD+1 } 
BIC @S2.BTIM,R2 ;TIMER 8B, EXP 
MOV #T16BFSTA,RO ;GET RECV REAGPSTATUS © 
MOV 2(RO),R1 ;GET RECV BYTE 2 
BIC @tC<S2.ATIM!S2.BTIM>,R1 ; SAVE TIMER A:B RECV ONLY 
FORCERROR 372$,NOTSSR 3880 
CMP R2,R sEXPD EQUAL RECV? 
BEQ 360$ 3;8R IF YES 
NEXT. ERRNO 
3728: ERRHRD ERRNO, T16T78, TIMEXP sREPORT ERROR 
TRAP CSERHRD 
-WORD 520 
. WORD T16T78 
. WORD TIME XP 
3803: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
ENOSUB8 377//77/174/7/7 END SUBTEST 4/474 //////7/ 
L10055 
TRAP Csesus 
TsT FATFLG sANY FATAL ERRORS ? 
BEG 460$ ;BRANCH IF NOT 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
460$: JSR PC, TSTLOOP :;SHOULD WE DO ITERATIONS? 
Bcc 4653 ;6R IF NO 
JMP T16LG0P ;LOOP UNTIL ITERATIONS DONE 
465%: 
EXIT TST s4SAASAAA1/ EXIT TEST SSAA SA4/ 4/7 
TRAP CSEXxIT 
-WORD L10053-. 
3° 
;LOCAL STORAGE FOR THIS TEST 
- 
T16D01: . WORD 1 31 MICROSECOND DELAY (ACTUALLY .8 MIC: 
716028: .WORD 40 328 MICROSECOND DELAY (.8 MICROS PER) 
716053: . WORD 76 353 MICROSECOND 


H11 
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474 036660 000142 716078; . WORD 142 378 MICROSECOND 
s¢ 

—— sLOCAL TEXT MESSAGES FOR TEST 

3 - 
2037 
2038 036662 105 170 164 TST16I0: -ASCIZ ‘Extended Features Switch and Timers A,B’ 
2039 036732 127 122 111 T16SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
2040 036767 127 122 111 T162SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
2041 037033 127 122 111 7163SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
2042 037100 102 165 1635 TI6TSBA:.ASCIZ ‘Bus Address Register (TSBA) Incorrect after Write Craracter istics’ 
2043 037202 104 141 164 T16I.EN: .ASCIZ ‘Data Field a in Message Buffer Incorrect after Write Characteristics’ 
2044 037314 124 123 123° TI6REV: .ASCIZ 'TSSR Function Reject Not Returned When Non-Existent Buffer Address Specifie 
2045 037431 124 151 155 T16TO1:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 1 microsecond Delay’ 
2046 037530 124 151 155 T16T28:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 28 microsecond Delay’ 
2047 037630 124 151 155 116753: .ASCIZ ‘Timer A,B Incorrect after Reset Timer with 53 microsecond Delay’ 
Heed 037730 124 151 155 Paes nk ae ‘Timer A,B Incorrect after Reset Timer with 78 microsecond Delay’ 

Vv 

2050 
2051 3+ 
2052 ; SET DEFAULT PACKET 
2053 3- 
2054 040030 TI6REST: 
2055 040030 012700 040210 MOV @TL6PACKET,RO sPACKET ADDRESS 
2056 040034 012720 100004 MOV #100004 ,(RO)>+ sWRITE CHARACTERISTICS WITH ACK 
2057 040040 012720 040220 MOV @T16EDATA,(RO)> sADDRESS OF CHAR DATA BLOCK 
2058 040044 CLR CRO)>+ sEXTENDED ADORESS 
2059 040046 012720 000012 MOV #10. ,CRO)> sSIZE OF MESSAGE PACKET 
20.) 040052 012720 040232 MOV @T16BFR,CRO)>+ sMESSAGE BUFFER ADDRESS 
2061 040056 CLR (RO)> sCLEAR EXTENDED BUFFER ADDRESS 
2062 040060 012720 000024 MOV @20.,(RO)> sLENGTH OF MESSAGE BUFFER 
2063 040064 005020 CLR (RO)>+ ;CLEAR ESS,ENS.EAI,ERI 
2064 040066 005010 CLR CRO) ;CLEAR EXTENDED FEATURES WORD 
2065 040070 005037 040232 CLR T16BFR ;CLEAR 1ST LOCATION IN MESSAGE BUFFER 
2066 040074 000207 RTS PC F 
2067 
2068 3° 
age ; CLEAR MESSAGE BUFFER 

eg 
2071 040076 TL6CLRBUF ; H 
2072 040076 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2073 040102 012701 040232 MOV OT1I6BFR.R1 sGET MESSAGE BUFFER ADDRESS 
2074 040106 012702 000026 MOV @T16BEND -T1L66FR,RO sSIZE OF MESSAGE BUFFER IN BYTES 
2075 040112 105021 10$: CLRB (RL): ;CLEAR A BYTE 
2076 040114 005302 DEC R2 : DONE ? 
2077 040116 003375 BGT 10$ 3;B8R IF NO 
2078 040120 000207 RTS PC ;RETURN 
2079 
2080 “6 
2081 ; SETUP T16PK2 PACKET FOR READ STATUS 
2082 3° 
2083 040122 T16SRD: 
2084 040122 004737 040076 JSR PC, T16CLRBUF sCLEAR MESSAGE BUFFER 
2085 040126 012700 040270 MOV @T16D0T2,RO sWRITE SUBSYSTEM DATA BUFFER 
2086 040132 112720 000005 MOVB oPwW.RDOSTATUS,(RO)> sSTORE READ STATUS COMMAND IN BSELO 
2087 040136 105010 CLRB (RO) ;CLEAR BSEL1 
2088 040140 000207 RTS PC ;RETURN 
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3¢ 
: SETUP T16PK2 PACKET FOR WRITE MISC. 
3 
: INPUT: 
3 RO CONTAINS WRITE MISC FUNCTION CODE (8SEL1) 
3 R1 CONTAINS DELAY (TIMES 800 NS) FOR BSEL2 
3 - 
TL6WMISC 
SAVREG sSAVE R1-RS UNITL NEXT RETURN 
PC, TI6CLRBUF sCLEAR MESSAGE BUFFER 
MOV @T160T2,R2 sWRITE SUBSYSTEM DATA BUFFER 


MOVB OPW .WMISC,(CR2)+ 
MOVB RO, CR2)+ 
MOVB a 


3¢ 


+STORE WRITE MISCELLANEOUS IN BSELO 
sSTORE WRITE MISC CODE IN BSEL1 
sSTORE DELAY (RESET TIMER) IN BSEL2 
sRETURN 


; SETUP TI6PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 


3- 
T16SEXT: 
MOV @T160T2,RO0 
MOVE OPW. WMISC,CRO)>+ 
MOVB OMS .EXT, CRO) 
RTS PC 


+ *€,°10>E€177770 
é 
sWRITE CHARACTERISTICS COMMAND PACKET 
° 
TI6PACKET: 
. 100004 
. WORD aaaatine 


. WORD 

-WORD 10. 
T16DATA: 

-WCRD TI6BFR 

-WORD O 

-WORD 20. 

-WORD 0 

-WORD O 


sMESSAGE BUFFER 
T16BFR: 


o 
cooooocoo 


sWRITE SUBSYSTEM DATA BUFFER 

sSTORE WRITE MISCELLANEOUS IN BSELO 

J A aes EXTENDED FEATURES IN BSELi 
; 


;COMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sMESSAGE PACKET SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sESS,ENB EAI, ERI 


sEXTENDED FEATURES wORD 


sBEGIN MESSAGE BUFFER 

sMESSAGE TYPE 

sDATA FIELD LENGTH 
PCR 


sXST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 


TSVS - HARDWARE TESTS 
TEST 5S: SUBTEST 2: VERIFY TIMERS A,B 


104401 


Jil 


MACRO M1113 0O6-FEB-84 17:14 SEQ 139 
TI6BFSTA: .BLKB 6. sREAD STATUS AND WRITE FIFO BUFFER 
TI6BEND: 3;END OF MESSAGE BUFFER 
+ 
;WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
+ 
T16PK2: 
.WORD P.WRTSUB!IP.ACK ;WRITE SUBSYSTEM WITH ACK 
. WORD T160T2 ;LOW ADDRESS OF DATA BLOCK 
.WORD O s;HIGH ADDRESS OF DATA BLUCK 
. WORD 10. s;MINIMUM MESSAGE PACKET SIZE 
T160Te: ;DATA BLOCK 
.BYTE 0 ;BSELO 
.BYTE t?) ;B6SEL1 
woRDB O ;SEL2 
.BLKB 64. ;WRITE FIFO DATA OUTPUT BUFFER 
ENDTS1 


L10053: 
TRAP CsETST 
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-SBTTL TEST 6: FIFO EXERCISER 

oe 

TEST DESCRIPTION: 
This test uses the Write Subsystem Memory command to 
verify the controller's FIFO and associated status and 
control logic. 

TEST STEPS: 


REPEAT FOR LOOPCNT 
BEGIN 


Do Subtest 1 FIFO Initialize status test 
Do Subtest 2 FIFO Write Single Byte test 
Do Subtest 3 FIFO Write Multiple Bytes test 


Do Subtest 4 . FIFO Verify ILW Status test 


Do Subtest 5 FIFO Input Ready test 
a Subtest 6 FIFO Verify Reset FIFO test 
BGNTST #4 
MOV @TST17ID,RO ;ASCIL MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP ;00 INITIAL TEST SETUP 
MOV #10. ,LOOPCNT ;PERFORM 10 ITERATIONS 
JSR PC .KTOFF ;SHUT OFF MEMORY MANAGEMENT 
CLR K TENABLE ;REALLY SHUT DOWN KT-11 


T17LOOP: 


-SBTTL TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 
3*¢ 
; TEST 6: SUBTEST 1: 
SUBTEST DESCRIPTION: 


This test verifies, by using the Read Status select code, 
that the FIFO status is in the correct initial state after 
the controller is initialized (Input Ready TRUE, 

Output Ready and Data In Miss FALSE). These status 

signals are checked by the controller's self-test 
sequence, so this subtest is actually more of a partial 
check of the Read Status function than the FIFO status. 


TEST STEPS: 


BEGIN 
Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a message buffer 
Do a WRITE SUBSYSTEM Read Status 
If Input Ready NOT=1 Then Print Error 
If Output Ready NOT=0 Then Print Error 
oa" Data In Miss NOT=0 Ther. Print Error 
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103407 
010001 


104455 
001132 
046746 
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004737 
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002222 
050220 
010662 
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; 
108; 


42s: 


623: 
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BGNSUB 3//////////77 BEGIN SUBTEST /////////7/ 
Tet aap C#8SUB 

Write to TSSR register to soft initialize the controller 

JSR PC, SOFINIT sWRITE TO TSSR TO SOFT INITIALIZE 


6cs 10$ ;6R IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CsEROF 
«WORD 600 


. WORD SFIERR 
«WORD SFIMSG 
Do ea WRITE CHARACTERISTICS to setup a message buffer 


CLR FATFLG ;CLEAR FATAL ae FLAG 
MOV @TL7PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42$ ;@9DFORCE ERROR IF FORCER=1 
BCS 50$ 3;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T17SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD 601 
. WORD T17SSR 
.WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CS$CLP1 
Do a Write Praraeee READ STATUS 
JSR PC,T1 ;SETUP PACKET FOR READ STATUS 
MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 


MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

JSR PC,.CHKTSSR ;WAIT sy SSR TO SET 

FORCERROR 62$ Q@OFORCE ERROR IF FORCER=1 

BCS 70$ ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF  ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 602 
-WORD 1T173SSR 
-WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1L 
o— WORDS 0-7 of expd message buffer = to a since not testing 


PC, T17SETEXP sSET WORDS 0-7 EXPD=RECV 
MOV OTI7EXSTA,R1 :GET EXPECTED READ STATUS 
MOV OT1L7BFSTA,R2 ;GET RECV READ STATUS 
MOV CR2)+,CR1)+ ;SET EXPD WORD #8 = RECV TEMP 
MOV (R2),(R1) ;SET EXPD WORD #9 = RECV TEMP 
BIS @S2.INRDY,(R1) ;SET EXP INPUT READY= TRUE 


BIC #S2.OUTRDY,(Ri) ;SET EXP OUTPUT READY= FALSE 
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823: 


160$; 


BIC #S2.D0IM,(R1) sSET EXP DATA IN MISS = FALSE 
If Input Ready NOT=1 then Print Error 

If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 


MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV @T1L7EXP,R2 sEXPD ADDRESS 
MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 ;EXPD EQUAL RECV? 
FORCERROR 82$,NOTSSR : 980 
BcS 90$ ;BR IF YES 
NEXT .ERRNO 
ERRHRD ERRNO,T171CMP,MSGSTAT sREPORT ERROR 
TRAP CSERHRD 
«WORD 603 
«WORD 1171CMP 
-WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
ENDSUB 3/////1//1///7 END SUBTEST /////////7/ 
L10057: 
TRAP CsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 160$ ;BRANCH IF NOT 


JSR PC ,CKDROP ;TRY TO OROP THE UNIT 


-SBTTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 


se 
; TEST 6: SUBTEST 2: 


é 
; 
; 
3 
3 
: 
3 
3 
3 
é 
° 
é 
3 
a 
; 
3 
: 
; 
3 
3 
3 
; 
3 
; 


5 
SUBTEST DESCRIPTION: 


This subtest verifies the ability of the FIFO to correctly 
pass a single data byte from input to output. For each 
of 256 data values (0-377 octal) the following is done: 


1. Initial FIFO status is checked 
2. The Write FIFO Function, specifying a count of 
one byte to be written is executed. 
3. Read Status is executed and FIFO status is checked. 
4. Read FIFO is executed and the data and final status 
is checked. 
TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 

Co a WRITE CHARACTERISTICS to setup a message buffer 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=1 Then Print Error 

If Output Ready NOT=0 Then Print Error 

If Date In Miss NOT=0 Then Print Error 


REPEAT FOR DATA FROM O TO 377 OCTAL 
BEGIN 
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Do a Write Subsystem WRITE NPR to set tape direction out 
Do a Write Subsystem WRITE FIFO with byte count equal to 1 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=1 Then Print Error 

If Output Ready NOT=1 Then Print Error 

If Data In Miss NOT*=0 Then Print Error 

Do Write ay ny READ FIFO with byte count equal to 1 
If Data read from FIFO NOT= to Data sent Then Print Error 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=1 Then Print Error 

If Output Ready NOT=0 Then Print Error 

If Data In Miss NOT=0 Then Print Error 


END 


END 


10$: 


42s: 


62%: 


BGNSUB s///////////7 BEGIN SUBTEST ////////// 
en CsBSUB 
Write to TSSR register to soft initialize the controller 
JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
10$ T OKAY 


BCS sBR IF SOFT INI 

MOV RO,R1 . sSAVE CONTENTS OF TSSR 

ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CSERDOF 
-WORD 603 


-WORD SFIERR 
-WORD SFIMSG 
Do a —aemmmree to setup a message buffer 


CLR FA ;CLEAR FATAL ERROR FLAG 

MOV @T17PACKET ,R4 s;GET THE ADDRESS OF COMMAND PACKET 
SR PC,.WRTCHR 3:00 WRITE CHARACTERISTICS COMMAND 

FORCERROR 42$ ;Q@@0FORCE ERROR IF FORCER=1 


BCS 5S0$ sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 


ERROF ERRNO, T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 604 


-WORD T17SSR 
WORD PKTSSR 


INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Do a Write Peevetes READ STATUS 
JSR PC,1T17SRD ;SETUP PACKET FOR READ STATUS 
MOV #T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 62$ ;@@OFORCE ERROR IF FORCER=1 


BCS 70$ ;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 


ERROF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 605 


Ble 
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041054 046746 -WORD 1173SSR 
041056 012046 -WORD PKTSSR 

2367 041060 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

2368 041064 708: CKLOOP sLOOP ON ERROR, IF FLAG SET 
041064 104406 TRAP CSCLP1 

2369 i Set WORDS 0-7 of onge messege buffer = to es since not testing 

2370 041066 004737 050166 JSR PC, TI7SETEX sSET WORDS 0-7 EXPD=RECV 

2371 041072 012701 046422 MOV @TL7EXSTA,R1 sGET EXPECTED READ STATUS 

2372 041076 012702 050262 MOV @TL7BFSTA,R2 sGET RECV READ STATUS 

2373 041102 012221 MOV (R2)+,CR1)> sSET EXPD WORD #6 = RECV TEMP 

2374 041104 011211 MOV (R2),CR1) sSET EXPD WORD 09 = RECV TEMP 

2375 041106 052711 000020 BIS @S2. INRDY,(R1) sSET EXP INPUT READY= TRUE 

2376 041112 042711 000040 BIC @Se. OUTRDY, (R1) sSET EXP OUTPUT READY= FALSE 

2377 041116 042711 000200 BIC @S2.DIM, (Ri) sSET EXP DATA IN MISS = FALSE 

2378 3 If Input Ready NOT « 1 then Print Error 

2379 3 If ant Ready VOT*0 or Date in Mies NOT*O Then Print Error 

2380 041122 CLR RO sHIGH RECV ADORESS FOR CKMSG2 

2381 041124 012701 050242 MOV OT1L7BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

2382 041130 012702 046402 MOV @TL7EXP.R2 sEXPD ADDRESS 

2383 041134 012703 000024 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 

2384 041140 004737 011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

2385 041144 FORCERROR 82% ,NOTSSR 3880 

2386 041154 103404 BCS 38R IF YES 

2387 041156 NEXT .ERRNO 

2388 041156 828: ERRHRD ERRNO,T171CMP,MSGSTAT sREPORT ERROR 
041156 104456 TRAP CSERHRD 
041160 001136 WORD 606 
041162 047165 «WORD T171CMP 
041164 012350 -WORD MSGSTAT 

2389 041166 90%: CKLOOP sLOOP ON ERROR, IF FLAG SET 

2590 041166 104406 TRAP CsCLP1 

2391 : Repeat for DATA from 0 to 377 

2392 041170 012737 000000 002312 MOV @0,DATA 3GET FIRST DATA 

2393 041176 1008 sREPEAT LABEL 

2394 : Do a Write Subsystem WRITE NPR to set tape direction 

2395 041176 012700 000100 MOV ONP OUT ,RO sSET TAPE OIRECTION our. 

2396 041202 004737 050046 JSR PC, T17SNPR sSETUP T17PK2 FOR WRITE NPR 

2397 041206 012704 050370 MOV @T17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

2398 041212 010465 MOV R4,TSOB(RS) sSET THE PACKET ADORESS TO EXECUTE 

2399 041216 004737 016336 JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

2400 041222 FORCERROR 1028 s8B0FORCE ERROR IF FORCER=1 

2401 041236 103407 6cSs 1058 :6R IF CARRY SET (GOOD RETURN) 

2402 041240 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2403 041242 NEXT. ERRNO 

2404 041242 1028: ERRDF ERRNO, 1174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041242 104455 TRAP CSERDF 
041244 001137 . WORD 607 
041246 047013 -WORD T174SSR 
041250 012046 WORD PKTSSR 

2405 041252 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

2406 041256 105% CKLOOP sLOOP ON ERROR, IF FLAG SET 
041256 104406 TRAP CsciPL 

2407 ; Do a Write Subsystem WRITE FIFO with byte count equal to 1 

2408 041260 012700 000001 MOV 41,R0 sWRITE 1 BYTE 

2409 041264 012701 002312 MOV ODATA,R1 sFIFO WRITE DATA ADDRESS 

«410 041270 004737 050072 JSR PC, Ti 7wF IF sSETUP T17PK2 FOR WRITE FIFO 


Cle 
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041274 
041300 


012704 
010465 
004737 


103407 
010001 


104455 
001140 
047056 
012046 
005237 


104406 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001141 
046746 
012046 
005237 


104406 


050370 
000000 
016336 


002222 


050004 
050370 


000000 
016336 


1078; 


1128: 


1328: 


MOV @T1L7PK2,R4 
MOV R4, TSOBCRS) 
JSR PC ,.CHKTSSR 
FOR OR 1078 
6cs 1108 

MOV RO,R1 

NE X 


.€ 
ERROF  €RRNO,T175SSR »PKTSSR 
INC FATFLG 
CKLOOP 


Do e Write ne stem READ STATUS 
JSR «PC, T17SRD 


MOV ori yPKs, R4 
MOV R4, TSOB(RS) 
JSR PC,CHKTSSR 
FORCERROR 1les 
6cs 1208 

Vv RO,R1 
NEXT .ERRNO 


ERRDF ERRNO,T1735SSR,PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 145 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ess TO EXECUTE 
sWAIT FOR SSR TO SET 

s@@0FORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 


608 
-WORD T175SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CSsCLP1 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

sQG0FORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 609 
-WORD 1173SSR 

PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP Csc.Pi 


Set WORDS 0-7 of expd message buffer = to recy since not testing 


JSR PC, TL7SETEXP 


MOV OTi7EXSTA, R1 
MOV @TL7BFSTA,R2 
MOV CR2)+,CR1)> 


BIS Se. INROY, (R1) 
BIS Se. OUTROY, (R1) 
BIC @52.DI1M,(Ri) 


sSET WORDS 0-7 EXPD=RECV 

iGET EXPECTED READ STATUS 
sGET RECV READ STATUS 

sSET EXPD WORD #6 = RECV TEMP 
sSET EXPD WORD @9 = RECV TEMP 
sSET EXP INPUT READY= 1 

sSET EXP OUTPUT READY= 1 

sSET EXP DATA IN MISS = 0 


If Input Ready NOT*1 then Print Error 


If Output Ready NOT=1 or Data in 
CLR RO 


MOV OTL7BFR,R1 
MOV OT17EXP.R2 
MOV @20 


Ss 
FORCERROR 132$,NOTSSR 
40% 


NE RRNO 
ERRHRD ERRNO, 1T175CMP ,MSGSTAT 


Miss NOT*O Tren Print Error 
sHIGH RECV ADORESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


:880 
38R IF YES 


sREPORT ERROR 
TRAP CSERHRD 
.WORD 610 
. WORD T173CMP 
-WORD  MSGSTAT 


Dle 


B-p4.17:14 SEQ 146 
fExe *EORTEET So Prec RR EtAG cB FEO TPS, 
LOOP ON ERROR, IF FLAG SET 
4 140%: CKLOOP ° TRAP CSCLP1 
onoe aisse 100406 
2455 Subs FIFO with byte count equal to 1 
2456 3 - Rati * lone READ wi Ps te yal te 
2457 041526 012700 000001 "Oy te SETUP TL7PK2 FOR READ FIFO 
Seb Saidba Gaetan seeie MOV = @TA7PK2, Ra 1GET WRITE SUBSYSTEM COMMAND PACKET 
mae Gatkee Gee ae MOV —-R4, TSOBCRS) iSET THE PACKET ADDRESS TO EXECUTE 
2460 041542 010465 000000 "Ov ne BP hn ohee tWAIT FOR SSR TO SET 
2461 041546 004737 016336 FORCERROR ° 1428 s@80F ORCE ERROR IF FORCER=1 
Seek Garden BCS 1508 1BR IF CARRY SET (GOOD RETURN) 
ees aaaate ieee MOV. _RO,R1 iSAVE CONTENTS OF TSSR 
dacs oais72 NEXT ERRNO ED TO SET 
46 FATAL SSR FAIL 
5a66 041572 142$: ERROF ERRNO,TI76SSR,PKTSSR =; DEVICE L A. ke 
041572 104455 -WORD 611 
041574 001143 “WORD T176SSR 
041576 Saaeee .WORD PKTSSR 
041600 SET FATAL ERROR FLAG 
2467 041602 005237 002222 INC FATFLG : RROR, IF FLAG SET 
cing nae 150$:  CKLOOP ee TRAP = CSCLP 1 
041606 Py i t testi 
7 of mess buf fer to recv since no ng 
oe ‘ JSR BCS TLTSETERE Se cer WORDS 0-7 EXPOSRECY 
2470 041610 004737 050166 MOV OTI7EXSTA.R1 sGET EXPECTED READ STATUS 
3472 osle20 olsvoe osozes MOV =—s«@TL7BFSTA,R2 ScET ESD GRD Gee rat © 
° T EXPO WORD 06 = 
2473 041624 013721 002312 a teiee SEY EXPD WORD 99 = ReCY CHOY TESTING) 
Sr ee (olizit 3 If Data read from FIFO NOT= to Data sent Then Print Error 
oare ; The data is in WORD 08 of the wee buf fer 
5000 CLR RO RECV ADDRESS FOR CKMSG2 
onan oS MOV —«- @T17BFR,R1 sLOW RECV ADORESS FOR CKMSG2 
2478 041634 012701 050242 mov eh he bts | tEXPD ADDRESS 
Gene Settee, Sakval toes MOV 18. RS :NUMBER OF BYTES TO COMPARE 
2480 041644 012703 22 mov iA ght tEXPD EQUAL RECV? 
2481 041650 004737 011500 "a. Ott oe nerees + 
2482 041654 BCS 1608 ;8R IF YES 
Saga oslece 1 NEXT . ERRNO 
2485 041666 152$: ERRHRD ERRNO,T172CMP,MSGSUB =; REPORT ERROR Et ater 
041666 104456 .WORD 612 
041670 001144 WORD  T172CMP 
siete Stree re sobs 
1 ROR, IF FLAG SET 
2486 041676 160%:  CKLOOP a ae 2 TRAP = C$CLP 1 
g7 041676 108406 
24 ; READ STATUS 
5488 : Do a Write Subsystem TUP PACKET FOR READ STATUS 
2489 041700 004737 050004 = OH pes a eT WRITE SUBSYSTEM COMMAND PACKET 
Seer Geecon @12708 G50570 MOV —sR4, TSDBCRS) iSET THE PACKET ADDRESS TO EXECUTE 
2491 041710 010465 000000 Mov ~ Phen Ae tMAIT FOR SSR TO SET 
2492 041714 004737 016336 FORCERROR 162% s@GOFORCE ERROR IF FORCER=1 
eed aeitie BCS 1708 1BR IF CARRY SET (GOOD RETURN) 
5496 osiyan tt NEXT.ERRNO’ 10 wt 
24 FATAL SSR FAILED 
Boat ei vet 162%: ERRDF ERRNO,T173SSR,PKTSSR  —_ , DEVICE Ls eee lice 
041740 104455 .WORD 613 
041742 001145 


TSVS 


041744 
041746 


- HARDWARE TESTS 
TEST 6: SUBTEST e: 


MACRO M 
FIFO WRITE 


002312 
002312 


041176 
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017202 
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FEB-84 17:14 E 47 
TE TEST os 
.WORD 1T173SSR 
.WORD PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
170$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 Set WORDS 0-7 of ae message buffer = to recv since not testing 
JSR PC, TI 7SETEX sSET WORDS 0-7 EXPD=RECV 
MOV OTL 7EXSTA,R1 3GET EXPECTED READ STATUS 
MOV @T17BFSTA,R2 sGET RECV READ STATUS 
MOV (R2)+,CR1)> sSET EXPD WORD 08 = RECV TEMP 
MOV CR2),CR1) 3SET EXPD WORD 99 = RECV TEMP 
BIS @S2. INRDY,(R1) sSET EXP INPUT READY= 1 
BIC @S2.OUTRDY,(R1) sSET EXP OUTPUT READY= 0 
BIC @S2.D0IM,(R1) 3SET EXP DATA IN MISS = O 
3 If Input Ready NOT*1 then Print Error 
3 If Output Ready NOT<0 or Data in Miss NOT*0 Then Print Error 
CLR RO sHIGH RECV ADORESS FOR CKMSG2 
MOV @T17BFR,R1 3LOW RECV ADDRESS FOR CKMSG2 
MOV @TL7EXP,R2 3EXPD ADDRESS 
MOV #20., ;NUMBER OF BYTES TO COMPARE 
JSR PC .CKMSG2 sEXPD EQUAL RECV? 
FORCER 172$,NOTSSR 3880 
BCS 180$ ;BR IF YES 
NEXT .ERRNO 
1728: ERRHRD ERRNO,T174CMP,MSGSTAT sREPORT ERROR 
‘ TRAP CSERHRD 
-WORD 614 
.WORD 1174CMP 
.WORD MSGSTAT 
180$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CscLPl 
FORCEXIT 205% 3:880 
INC DATA 3;GET NEXT TEST DATA 
CMP DATA, 0377 ;D0NE O TO 377? 
BHI 205% ;BR IF YES 
JMP 100$ 300 ANOTHER TEST PATTERN 
2058: 
ENDSUB s//4/44/14077 END SUBTEST 4//4/////// 
10060: 
TRAP CsESUB 
TsT FATFLG ;ANY FATAL ERRORS ? 
BEQ 2603 ;BRANCH IF NOT 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
2605: 
.SBTTL TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


gee 
; TEST 6: SUBTEST 3: 
SUBTEST DESCRIPTION: 


Tnis subtest verifies the ability of the FIFO to correctly 
pass a multiple data bytes from input to output. 
Tne following sequence is done with various data patterns 


File 
ISVS - MAROWARE TESTS MACRO M1115 06. ~ ee SEQ 148 


TEST 6: SUBTEST 3; FIFC WRITE MUL 


2545 3 and byte counts from 2 to 64. 

2546 F 1. Initial FIFO status is checked 

2547 ; 2. The Write FIFO function. 

2548 ; 3. Read Status is executed and FIFO status is checked. 

2549 3 4. Read FIFO is executed and the date and final status 

2550 3 is checked. 

2551 3 

2552 3; TEST STEPS: 

2553 3 

2554 ; BEGIN 

2555 3 Write to TSSR to soft initialize 

2556 3 Do a WRITE CHARACTERISTICS to setup a message buffer 

2557 3 Do a Write Subsystem READ STATUS 

2558 ; If Input Ready NOT=1 Then Print Error 

2559 3 If Output Ready NOT=0 Then Print Error 

2560 3 If Date In Miss NOT=O0 Then Print Error 

2561 3 If Last Word NOT=0 Then Print Error 

2562 ; REPEAT FOR DATA O TO 377, 377 TO 0, FLOATING 1'S,0’'S AND ALL 1'S/0'S 

2563 ; REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 

2564 3 BEGIN 

2565 F Do a Write Subsystem WRITE NPR to set tape direction out 

2566 3 Do a Write Subsystem WRITE FIFO 

2567 3 Do ea Write Subsystem READ STATUS 

2568 3 If Input Ready NOT=1 Then Print Error 

2569 - If Output Ready NOT=1 Then Print Error 

2570 3 If Data In Miss NOT=0 Then Print Error 

2571 3 If Last Word NOT=O Then Print Error 

2572 ; Do Write oy READ FIFO 

2573 3 If Date read from FIFO NOT= to Date sent Tien Print Error 

2574 ; Do a Write Subsystem READ STATUS 

2575 3 If Input Ready NOT=1 Then Print Error 

2576 3 If Output Ready NOT=0 Then Print Error 

2577 ; If Data In Miss NOT*O Then Print Error 

2578 3 If Last Word NOT=0 Then Print Error 

2579 : END 

2580 ; END 

2581 B «= 

2582 042124 BGNSLB 3//////////7// BEGIN SUBTEST /4///4//4///7 
042124 76.3: 

2503 042124 104402 TRAP csBSuU8 

2584 3 Write to TSSR register to soft initialize the controller 

2585 042126 S$: 

2586 042126 004737 015774 JSR PC,SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

2587 042132 103405 BCS 10% 38R IF SOFT INIT OKAY 

2588 042134 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2589 042136 ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
042136 104455 TRAP CSEROF 
042140 001146 . WORD 614 
042142 003652 WORD SFIERR 
042144 012034 -WORD SFIMSG 

2590 : Do = WRITE CHARACTERISTICS to setup a message buffer 

2591 042146 005037 002222 10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 

2592 042152 012704 050220 MOV @TL7PACKET,R& ;GET THE ADDRESS OF COMMAND PACKET 

2593 042156 004737 010662 JSR PC,WRTICHR 300 WRITE CHARACTERISTICS COMMAND 

2594 042162 FORCERROR 42% QB0FORCE ERROR IF FORCER=1 


o 
2595 042176 103407 BCS 508 3BR IF CARRY SET (GOOD RETURN) 


Gle 


TSVS - HARDWARE TEsts MACRO M1113 7:14 SEQ 149 
TEST 6: SUBTEST 3: FIFO WATE MUL rrece ‘Bytes rei 

2596 042200 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2597 042202 NEXT .ERRNO 

2598 042202 42%: ERROF ERRNO, T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
042202 104455 TRAP CSERDF 
042204 001147 WORD 615 
042206 046645 . WORD T17SSR 
042210 012046 - WORD PKTSSR 

2599 042212 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

2600 042216 50$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
042216 104406 TRAP CSCLP1 

2601 ; Do a Write noe READ STATUS 

2602 042220 004737 050004 JSR PC.T17 ;SETUP PACKET FOR READ STATUS 

2603 042224 012704 050370 MOV oTi7PK2, R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

2604 042230 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 

2605 042234 004737 016336 JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 

2606 042240 FORCERROR - 628 ;8@0FORCE ERROR IF FORCER=1 

2607 042254 103407 6cs 708% ;6R IF CARRY SET (GOOD RETURN) 

2608 042256 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2609 042260 NEXT. ERRNO 

2610 042260 628: ERRDOF ERRNO, 1173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
042260 104455 TRAP CSEROF 
042262 001150 - WORD 616 
042264 046746 - WORD T173SSR 
042266 012046 . WORD PKTSSR 

2611 042270 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

2612 042274 708: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
042274 104406 TRAP CSCLPL 

2613 : Set WORDS 0-7 of expd message buffer = to wgey since not testing 

2614 042276 004737 050166 JSR PC, TL7SETEXP sSET | ORDS 0-7 EXPD=RECV 

2615 042302 012701 046422 MOV OTI7EXSTA, R1 3GET EXPECTED READ STATUS 

2616 042306 012702 050262 MOV eT17BFSTA.R2 sGET RECV READ STATUS 

2617 042312 012221 MOV CR2)+,CR1)> sSET EXPD WORD 08 = RECV TEMP 

2618 042314 011211 MOV CR2),(R1) sSET EXPD WORD @9 = RECV TEMP 

2619 042316 052711 000020 BIS @S2.INROY,(R1) ;SET EXP INPUT READY= 1 

2620 042322 042711 000040 BIC @S2.OUTRDY,(R1) ;SET EXP OUTPUT READY= oO 

2621 042326 042711 000200 BIC @S2.DIM,(R1) sSET EXP DATA IN MISS = O 

2622 042332 042711 000100 BIc @S2.ILwW,(R1) sSET EXP LAST WORD (ILW)=0 

2623 3 If Input Ready NOT = 1 then Print dover 

2624 ; If Output Ready NOT=0 or Date in Miss NOT=0 Then Print Error 

2625 : If Last Word NOT=0 Tren Print Error 

2626 042336 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

2627 042340 012701 050242 MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

2628 042344 012702 046402 MOV @T1L7EXP,R2 sEXPO ADDRESS 

2629 042350 012703 000024 MOV #20. ,R3 sNUMBER OF yf tt F , "0 COMPARE 

2630 042354 004737 011500 JSR PC,CKMSG2 sEXPD EQUAL RECV 

2631 042360 FORCERROR 62$ ,NOTSSR ;3880 

2632 042370 103404 BCS 90$ 7BR IF YES 

2633 042372 NEXT. ERRNO a4 

2634 042372 82%: ERRHRD ERRNO, T171CMP,MSGSTAT sREPORT ERROR 
042372 104456 TRAP CSERWRD 
042374 001151 . WORD 617 
042376 047165 .~ WORD T171CMP 
042400 012350 . WORD MSGSTAT 

2625 042402 90%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

ses 042402 104406 TRAP CsCLPl 


Hie 


TSVS - HARDWARE TEST MACRO M111 -FEB- 7:14 SEQ 150 
TEST 6: SUBTEST 5 Piro Wate Mott ree Byes regi 

2638 

2639 ; REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 

2640 ; TSTFLAG =1 FOR INCREMENT TEST PATTERN 

2641 : *2 FOR DECREMENT TEST PATTERN 

2642 : *3 FOR TSTBLK TABLE PATTERN 

2643 042404 012737 000001 002314 MOV 1, TSTFLAG s;TEST PATTERN FLAG 

2644 042412 953: 

2645 042412 012737 000002 002310 MOV @2,COUNT ;GET FIRST BYTE COUNT 

2646 042420 1008: 

2647 3 Do a Write wor oe WRITE NPR to set tape direction out 

2648 042420 012700 000100 MOV ONP OUT, RO sSET TAPE CIRECTION OUT 

2649 042424 004737 050046 JSR PC, T17SNPR ;SETUP T17PK2 FOR WRITE NPR 

2650 042430 012704 050370 MOV eTi7PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

2651 042434 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

2652 042440 004737 016336 JSR PC,CHKTSSR s;WAIT FOR SSR TO SET 

2653 042444 FORCERROR 102% ;@@OFORCE ERROR IF FORCER=1 

2654 042460 103407 Bcs 105$ ;3R IF CARRY SET (GOOD RETURN) 

2655 042462 010001 MOV RO,R1 s;SAVE CONTENTS OF TSSR 

2656 042464 NEXT. ERRNO 

2657 042464 102$: ERROF ERRNO,T174SSR,PKTSSR s;DEVICE FATAL SSR FAILED TO SET 
042464 104455 TRAP CSEROF 
042466 001152 -WORD 618 
042470 047013 -WORD 1174SSR 
042472 012046 .WORD PKTSSR 

2658 042474 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

2659 042500 105$ CKLOOP sLOOP ON ERROR, IF FLAG SET 
042500 104406 TRAP CSCLP1 

2660 ; Do a Write Sbeyetes WRITE FIFO 

2661 042502 004737 050146 JSR PC,T17CLEXxP ;CLEAR EXPD BUFFER 

2662 042506 012701 046524 MOV @T1L7WFDATA,R1 sEXPD WRITE FIFO DATA BUFFER 

2663 042512 013702 002310 MOV COUNT ,R2 ;TEST PATTERN SIZE 

2664 042516 022737 000001 002314 CMP 1, TSTFLAG s INCREMENT PATTERN THIS TIME THRU? 

2665 042524 001005 BNE 115% :8R IF NO 

2666 042526 005000 CLR RO ; INCREMENT TEST PATTERN 

2667 042530 110021 110%: MOVB RO,(R1)+ sSTORE INCREMENT TEST BYTE 

2668 042532 005200 INC RO SET NEXT PATTERN 

2669 042534 005302 DEC R2 ; DONE ? 

2670 042536 003374 BGT 110$ ;8R IF NO 

2671 042540 022737 000002 002314 115%: CMP @2, TSTFLAG sDECREMENT PATTERN THIS TIME THRU? 

2672 042546 001006 BNE 125% :8R IF NO 

2673 042550 012700 000377 MOV 0377,RO0 s;DECREMENT TEST PATTERN 

2674 042554 110021 1208 MOVB RO,(R1)+ sSTORE DECREMENT TEST BYTE 

2675 042556 DEC RO 3;SET NEXT PATTERN 

2676 042560 302 DEC R2 : DONE ? 

2677 042562 003374 BGT 120% ;8R IF NO 

2678 042564 022737 000003 002314 1253 CMP 03, TSTFLAG ;TSTBLK PATTERNS THIS TIME THRU? 

2679 042572 001005 BNE 1358 ;8R IF 

2680 042574 012700 002752 MOV @TSTBILK,RO sFLOAT 1'S/0’'S ETC. TEST TABLE 

2681 042600 112021 130%: MOVB (RO)+,(R1)+ ;STORE A TSTBLK BYTE 

2682 042602 005302 DEC R2 3; DONE ? 

2683 042604 003375 BGT 1308 ;BR IF NO 

2684 042606 135s: 

2685 042606 013700 002310 MOV COUNT ,RO sFIFO BYTE COUNT 

2686 042612 012701 046524 MOV OT17WrDATA,R1 sFIFO WRITE DATA ADDRESS 

2687 042616 004737 050072 JSR PC, TL 7WFIF ;SETUP T17PK2 FOR WRITE FIFO 

2688 042622 012704 050370 MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

2689 042626 010465 MOV R4,TSDB(RS) 3SET THE PACKET ADDRESS TO EXECUTE 
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004737 


103407 
010001 


104455 
001153 
047056 
012046 
005237 


104406 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001154 
046746 
012046 
005237 


104406 


012350 


Ile 
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016336 


002222 


050004 
050370 


000000 
016336 


002222 


1428; 


157$: 


1628: 


FIFO WRITE MULTIPLE BYTES TEST 


JSR, PC,CHKTSSR 
FORCERROR 142% 
BcS 150$ 

MOV RO,R1 


. ERRNO 
ERRDF ERRNO,T175SSR,PKTSSR 
INC FATFLG 
CKLOOP 


Do a Write re stem READ STATUS 
JSR PC,T 75RD 


MOV eri PKs, R4 
MOV R4, TSDBCRS) 
JSR PC,.CHKTSSR 
FORCERROR 157$ 
BCS 160$ 

MOV RO,R1 

NEXT. 


E 
ERROF ERRNO, T173SSR,PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 151 


sWAIT FOR SSR TO SET 

s BOF ORCE a ol FORCER=1 
:8R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


- WORD 
«WORD T175SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@@O0FORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 


ost WORDS 0-7 of expd message buffer = to recv since not testing 


PC, T1L7SETEXP 
MOV @TI7EXSTA, R1 
MOV OT17BFSTA,R2 


BIS @S2. INROY,(R1) 
BIS @52.OUTRDY,.(R1) 
BIC @52.DIM,(Ri) 
BIC @S2.ILw,(R1) 


sSET WORDS 0-7 EXPD=RECV 

iGET EXPECTED READ STATUS 
sGET RECV READ STATUS 

sSET EXPO WORD 08 = RECV TEMP 
sSET EXPD WORD @9 = RECV TEMP 
sSET EXP INPUT READY= 1 

sSET EXP OUTPUT READY= 1 

sSET EXP DATA IN MISS = 0 
sSET EXP LAST WORD (ILW)=0 


If Input Ready NOT = 1 then Print Error 


If Output Ready NOT=1 or Data in 
CLR RO 


MOV @T17BFR,R1 
MOV OTL 7EXP ,R2 
MOV #20. ,R3 


MSG2 
4 oc 162$,NOTSSR 


NO 
ERRHRD ERRNO, T1735CMP ,MSGSTAT 


Miss NOT«0 Then Print Error 
sHIGH RECV ADDRESS FOR CKMSG2 
;LOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


; 880 
3BR IF YES 


sREPORT ERROR 
TRAP CSERHRD 
-WORD 621 
. WORD T173CMP 
-WORD  MSGSTAT 
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104406 


013700 
004737 
012704 
010465 
004737 


103406 
013701 


104456 
001157 
047512 
012170 


104406 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001160 
046746 
012046 
005237 


104406 
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002310 
050126 
050370 


000000 
016336 


002222 


050004 
050370 
000000 


016336 


002222 


Jle 


06 -FEB-84 17:14 


1708; 


1723: 


192$: 


212%: 


220%: 


FIFO WRITE MULTIPLE BYTES TEST 


CKLOOP 


Do Write Subsystem READ FIFO 
MO COUNT ,RO 


JSR PC, TI 7RF IF 
MOV @T17PK2,R4 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 
FORCERROR 172$ 
BcS 180$ 

MOV RO,R1 

NEXT .ERRNO 


ERRDF ERRNO,T176SSR,PKTSSR 


INC FATFLG 

CKLOOP 

CLR 

MOV @TL7WFDATA,R2 
MOV OT17BFSTA,R1 
MOV COUNT, 


SsG2 
FORCERROR 192$,NOTSSR 
200% 
1 
ERRHRD ERRNO, T17SCMP ,FIFEXP 


CKLOOP 


Do a Write Piveretes READ STATUS 
JSR PC,T 


MOV @T17PK2,R4 
MOV R4, TSDBCRS) 
JSR PC,CHKTSSR 
FORCERROR 212s 
BCS 22 

MOV RO,R1 

NEXT .ERRNO 


ERRDF ERRNO, T173SSR,PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 152 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sSET READ BYTE COUNT 
sSETUP T17PK2 FOR READ FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@@0FORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


«WORD 622 
-WORD 1176SSR 


WORD PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


If A ee * from FIFO NOT= to Data sent Then Print Error 


sHIGH RECV ADDRESS FOR CKMSG2 
sGET EXPECTED ADDRESS FOR CKMSG2 
sGET RECEIVED ADDRESS FOR CKMSG2 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3;880 
3;68R IF YES 


;GET BYTE COUNT 
sREPORT ERROR 


«WORD 623 

-WORD 117SCMP 

-WORD FIFEXP 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLPL 


sSETUP PACKET FOR READ STATUS 
;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADCRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@BOFORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


«WORD 624 
«WORD 1173SSR 


WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


TSVS - HARDWARE TESTS 


TEST 6: SUBTEST 3: FIFO 


2774 
2775 
2776 
2777 
2778 


004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 
042711 


005000 
012701 
012702 
012703 
004737 


103404 


104456 
001161 
047427 
012350 


MACRO M1°13 


046402 


002310 
002310 


042420 
002314 
002314 


042412 


0022°2 
017202 


ITE Mu TIPLE "BY 


000077 


000003 


232s: 


2408: 


255%: 


2608: 


BYTES regi - 


Set WORDS 0-7 of _- message ae? * to recv since not testing 


Kile 


JSR PC, T17SETEX 
MOV @TI7EXSTA, Ri 
MOV OT17BFSTA,R2 
MOV CR2)+,CR1L)+ 
MOV CR2),C(R1) 
BIS @S2. INRDY,(R1) 
BIC @S2.OUTRDY,C(R1) 
BIC @S2.0IM,(R1) 
BIC #S2.ItwW,(R1) 


SEQ 153 


WORDS 0-7 EXPD=RECV 
sGET EXPECTED READ STATUS 
sGET RECV READ STATUS 
sSET EXPD WORD #6 = RECV TEMP 
sSET EXPD WORD 09 = RECV TEMP 
sSET EXP INPUT READY= 1 
3SET EXP OUTPUT READY= 0 
sSET EXP DATA IN MISS = 0 
;SET EXP LAST WORD (ILW)=0 


If Input Ready NOT=1 then Print Error 


CLR 
MOV 
MOV 
MOV 


NEXT .ERRNO 
ERRHRD ERRNO, T174CMP,MSGSTAT 


OT17BFR,R1 
@T17EXP,R2 


CKLOOP 

FORCEXIT 250% 
INC COUNT 

CMP COUNT , 077 
BHI 2508 

JMP 100$ 

INC TSTFLAG 
CMP TSTFLAG, #3 
BHI 2558 

JMP 95$ 

NOSUB 

TST aaa 
BEQ 

JSR eC. eCKOROP 


SG2 
232$,NOTSSR 


If ne Soe NOT=0 or Data in pod NOT=0 Then Print Error 


GH RECV ADDRESS FOR CKMSG2 
;LOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3;980 
3;B8R IF YES 


sREPORT ERROR 
TRAP CSERHRD 


-WORD 625 

«WORD 1174CMP 

.WORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 

TRAP CscLP1 


; 880 

3;GET NEXT BYTE COUNT 

;DONE O TO 77 

;BR IF YES 

300 ANOTHER BYTE COUNT 

;GET NEXT TEST PATTERN CODE 
;DONE INC,DEC,TSTBLK PATTERNS? 
;BR IF YES 

300 ANOTHER TEST PATTERN 


34/4////////447 END SUBTEST ////////7/7 
L10061: 
TRAP CsESUB 
sANY FATAL ERRORS ? 


;BRANCH IF NOT 
;TRY TO OROP THE UNIT 


-SBTTL TEST 6: SUBTEST 4: FIFO Verify ILW Status 


a+ 
; TEST 6: SUBTEST 4: 


oc ee oe es oe 


SUBTEST DESCRIPTION: 


This subtest verifies that reading the FIFO when it is 
empty causes the Last Word (ILW) status to assert. 


TSVS - HARDWARE TESTS 


TEST 6: SUBTEST 


ACRO M1113 
4: Piro" VERIFY 


015774 


002222 
050220 
010662 


002222 


000001 
050126 
050370 
000000 


016336 


LW STATUS 


BEGIN 


3 
10$: 


423: 


142$: 


Lie 


-FEB-84 17:14 SEQ 154 


TEST STEPS: 


Write to TSSR to soft initialize 

Do Write gw ees READ FIFO — byte count equal to 1 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=1 Then Print Error 

If Output Ready NOT=0 Then Print Error 

If Data In Miss NOT=0 Then Print Error 

If Last Word CILW) NOT=1 Then Print Error 


END 


BGNSUB 34/////////7/7/ BEGIN SUBTEST ////////// 
T6.4: 
TRAP C$BSUB 
Write to TSSR register to soft initialize the controller 


JSR PC, SOFINIT sWRITE TO TSSR TO SOFT INITIALIZE 

BCS 10$ ;8R IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CSEROF 
WORD 625 


Do a WRITE CHARACTERISTICS to setup a message buffer 


CLR FATFLG ;CLEAR FATAL an ar FLAG 

MOV @T17PACKET,R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR PC, WRTICHR :00 late sranda nahkoe't COMMAND 
FORCERROR 42$ ORCE ERROR IF FORCER=1 


$ :BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF  ERRNO,T17SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 626 
-WORD 117SSR 
-WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
Do Write ae eee READ FIFO with noet's count equal to 1 


MOV READ BYTE COUNT 

JSR PC, TL 7RFIF ;SETUP T17PK2 FOR READ FIFO 

MOV oT17PK2, R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

FORCERROR 1428 sQ@QOFORCE ERROR IF FORCER=1 

BcS 150$ 3BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF ERRNO,T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


-WORD 627 


HARDOW 


“6: SUBTEST 4 


2907 


2908 
2909 


TES"arc ORR HE 


052711 


005000 
012701 
012702 
012703 
004737 
103404 
104456 
001165 
047566 
012350 
104406 


104402 
005737 


002222 


050004 
050370 
000000 
016336 


046402 


002222 


Mie 


-FEB- 7:14 
Phil) B-84 17:1 SE@ 155 


1508: 


162$: 


172%: 


180$: 


«WORD 1176SSR 


-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do a Write Subsystem READ STATUS . 

JSR PC,T17SRD ;SETUP PACKET FOR READ STATUS 
MOV eTi PKS. R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 


FORCERROR 162$ sQ@Q@OFORCE ERROR IF FORCER=1 
BCS 170$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF  ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 628 
-WORD 1173SSR 
WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG : 
CKLOOP . ;LOOP ON ERROR, IF FLAG a 
RAP CSCLP1 
Set WORDS 0-7 of expd message buffer = to recv since not aan 
JSR PC, TL7SETEXP ;SET WORDS 0-7 EXPD=RECV 
MOV OTI7EXSTA, R1 ;GET EXPECTED READ STATUS 
MOV @T17BFSTA,R2 ;GET RECV READ STATUS 
MOV (R2)+,CR1)+ sSET EXPD WORD #8 = RECV TEMP 
MOV CR2),CR1) ;SET EXPD WORD #9 = RECV TEMP 
BIS #S2.INRDY,CR1) 3SET EXP INPUT READY= 1 
BIC @S2.OUTRDY,(R1) ;SET EXP OUTPUT READY= 0 
BIC #S2.0IM,(R1) ;SET EXP DATA IN MiSS = 0 
BIS #S2.ILwW,(R1) ;SET EXP LAST WORD CILW)=1 


If Input Ready NOT= 1 then Print ipees 

If Output ws NOT=0 or Data in Miss NOT=0 Then Print Error 
If Last are CILW) NOT#=1 Then Print Error 

CLR sHIGH RECV ADDRESS FOR CKMSG2 


MOV OTL7BFR, R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV OT17EXP ,R2 sEXPD ADDRESS 

MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

FORCERROR 172$,NOTSSR ; 980 

BCS 180$ ;BR IF YES 


NEXT .ERRNO 
ERRHRD ERRNO, T176CMP,MSGSTAT sREPORT ERROR 
TRAP CSERHRD 


. WORD 629 
. WORD T176CMP 
.WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
ENDSUB 34//4//1/////7 END SUBTEST S/4//4/////7/ 
L1006e2: 


* TRAP CsESUB 
TST FATFLG ;ANY FATAL ERRORS ? 


TSVS - HAROWARE TESTS 


TEST 6: SUBTEST 4: 


2910 044034 001402 
2911 044036 004737 017202 


2912 


044042 


044042 
044042 
044042 


044044 
044044 
044050 
044052 
044054 
044054 
044056 
044060 
044062 


MACRO Mil 


FIFO VERIFY I 


015774 


1 
L 


3 
W 


Nie 


06-FEB-84 17:14 SEQ 156 


STATUS 


2608: 


BEQ 260% sBRANCH IF NOT 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 


-SBTTL TEST 6: SUBTEST 5S: FIFO Verify Input Ready 


3+ 
; TEST 6: SUBTEST 5: 


BEGIN 


SUBTEST DESCRIPTION: 


This subtest verifies that writing 64. bytes into the FIFO 
without reading any out causes the Input Ready status to 
negate. The Subtest then verfiies that writing a 65th byte 
into the FIFO causes the Data In Miss status to assert. 
Next it is verified that the original 64 bytes can be read 
out correctly and that the data has not been corrupted. 


TEST STEPS: 


Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message buffer 

Do a Write Subsystem WRITE NPR to set tape direction out 

Do a Write Subsystem WRITE FIFO 64. bytes incrementing pattern 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=0 Then Print Error 

If Output Ready NOT=1 Then Print Error 

If Data In Miss NOT=0 Then Print Error 

Do a Write Subsystem WRITE FIFO 1 byte for a total of 65. written 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=0 Then Print Error 

If Output Ready NOT=1 Then Print Error 

If Data In Miss NOT=1 Then Print Error 

Do Write Subsystem READ FIFO 

If Data read from FIFO NOT= te Date sent Then Print Error 

Do a Write Subsystem READ STATUS 

If Input Ready NOT=1 Then Print Error 

If Output Ready NOT=0 Then Print Error 

If Data In Miss NOT=1 Then Print Error 


BGNSUB WAAAAAAAALAA em ane SAAGAASASS 
T6.5: 
TRAP Cs$BSUB 


Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

BCS 10$ ;BR IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CsERDF 
WORD 629 


‘WORD SFIERR 
“WORD SFIMSG 


B13 


TSsvS HARDWARE TESTS MACRO M1113 0O6-FEB-84 17:14 SEQ 157 
TEST 6: SUBTEST 5S: FIFO VERIFY INPUT READY 

2961 ’ Do a wae qa to setup a message buffer 

2962 044064 005037 002222 108; CLR FLG ot FATAL ERROR FLAG 

2963 044070 012704 050220 MOV OT] TPACKET, R4 sGET THE ADDRESS OF COMMAND PACKET 

2964 044074 004737 010662 JSR PC, WRICHR 100 WRITE CHARACTERISTICS COMMAND 

2965 044100 FORCERROR 425 sQ8BOFORCE ERROR IF FORCER=1 

2966 044114 103407 Bcs 508 s6R IF CARRY SET (GOOD RETURN) 

2967 044116 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2968 044120 NEXT .ERRNO 

2969 044120 423; ERROF ERRNO, 1T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
044120 104455 TRAP CSEROF 
044122 001166 WORD 630 
044124 046645 «WORD T17SSR 
044126 012046 WORD PKTSSR 

2970 044130 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

2971 044134 508: CKLOOP sLOOP ON ERROR, IF FLAG SET 

2972 044134 104406 TRAP CSCLP1 

2973 3 fe e Write Subsystem WRITE NPR to set t direction out 

2974 044136 012700 000100 100$: ONP .OUT,RO sSET T OIRECTION OuT 

2975 044142 004737 050046 ion PC, T17SNPR sSETUP T17PK2 FOR WRITE NPR 

2976 044146 012704 050370 MOV eTi7PK2, Ra 3GET WRITE SUBSYSTEM COMMAND PACKET 

2977 044152 010465 000000 MOV R4, TSDBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 

2978 044156 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

2979 044162 FORCERROR 1028 s@BO0FORCE ERROR IF FORCER=1 

2980 044176 103407 bcs 1053 38R IF CARRY SET (GOOD RETURN) 

2981 044200 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2982 044202 NEXT .ERRNO 

2983 044202 1028; ERROF ERRNO, 1174SSR,PKTSSR sDEVICE FATAL SSR SAILED TO SET 
044202 104455 TRAP CsERDF 
044204 001167 . WORD 631 
044206 047013 WORD T™174SSR 
044210 012046 WORD PKTSSR 

2984 044212 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

2985 044216 1053; CKLOOP sLOOP ON ERROR, IF FLAG SET 
044216 104406 TRAP CSCLP1 

2987 ; a e@ Write Subsystem WRITE FIFO 64. bytes incrementing pattern 

2988 044220 012737 000100 602310 064. ,COUNT sWRITE 64 BYTES 

2989 044226 012701 046524 MOV OTL 7WEDATA, R1 sEXPD WRITE FIFO DATA BUFFER 

2990 044232 012702 000100 MOV 064. ,R2 sTEST PATTERN SIZE 

2991 044236 005000 CLR RO s INCREMENT TEST PATTERN 

2992 044240 110021 1108: MOvVB RO,CPL)> sSTORE INCREMENT TEST BYTE 

2993 044242 005200 INC RO 3SET NEXT PATTERN 

2994 044244 005302 DEC R2 3s DONE? 

2995 044246 003374 BGT 1108 36R IF NO 

2996 044250 013700 002310 MOV COUNT ,RO sFIFO BYTE COUNT 

2997 044254 012701 046524 MOV OT17WFDATA,R1 sFIFO WRITE DATA ADDRESS 

2998 044260 004737 050072 JSR PC, TI7WFIF sSETUP T17PK2 FOR WRITE FIFO 

2999 044264 012704 050370 MOV @TL7PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 

3000 044270 010465 000000 MOV R4,TSOBCRS) 3SET THE PACKET ADORESS TO EXECUTE 

3001 044274 004737 016336 JSR PC,CHKTSSR sWAIT sag SSR TO SET 

3002 044300 FORCERROR 142% BSOFORCE ERROR IF FORCER=1 

3003 044314 103407 BCS 1508 3;6R IF CARRY SET (GOOD RETURN) 

3004 044316 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3005 044320 NEXT. ERRNO 

3006 044320 1428; ERROF ERRNO, 1T175SSR,PKTSSR ;DEVICE FATAL SSR renee TO SET 
044320 104455 RAP CSEROF 


2 


TSVS - HARDWARE TESTS 
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001170 
047056 
012046 
005237 


104406 


002222 


1508; 


C13 


MACRO M1113 06-FEB-84 17:14 SEQ 158 
. WORD 
. WORD 
. WORD 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG : 


050004 
050370 
000000 


016336 


000001 
046524 
050072 


1578: 


1628: 


1708: 


Do a Write Subsystem READ STATUS 
If Input Ready NOT*0 Then Print Error 
If Output Ready NOT*1 Then Print Error 
If Date In Miss NOT*0 Then Print Error 
JSR PC,T17SRO sSETUP PACKET FOR READ STATUS 
MOV oTi7PK2,R4 
MOV R4,TSOBC(RS) 


JSR PC ,.CHKTSSR sWAIT “og SSR TO SET 


632 
T175SSR 
PKTSSR 


CSsCLP1 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 


FORCERROR 1578 SBOFORCE ERROR IF FORCER=1 

BcSs 1608 36R IF CARRY SET (GOOD RETURN) 

a ‘ RO,R1 sSAVE CONTENTS OF TSSR 

ERRDF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 633 
-WORD 1173SSR 
WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1L 

Set WORDS 0-7 of > message buffer = to .%. since not testing 

JSR PC. TL7SETEX sSET WORDS 0-7 EXPD=RECV 

MOV @TL7EXSTA, R1 sGET EXPECTED READ STATUS 

MOV @T17BFSTA.R2 3sGET RECV READ STATUS 

MOV CR2)+,CR1)> sSET EXPD WORD 08 = RECV TEMP 

MOV CR2),(R1) sSET EXPD WORD 09 = RECV TEMP 

BIC @S2.INRDY,(R1) sSET EXP INPUT READY= 0 

BIS @S2.OUTRDY,(R1) 3SET EXP OUTPUT READY= 1 

BIC @S2.D0IM,(R1) sSET EXP DATA IN MISS = O 

CLR RO sHIGH RECV ADORESS FOR CKMSG2 

MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

MOV @T17EXP,R2 sEXPD ADDRESS 

MOV 020. ,R3 sNUMBER OF BYTES TO COMPARE 


CSERHRD 
634 

T173CMP 
MSGSTAT 


CsCLPl 


JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

FORCERROR 162%,NOTSSR 3880 

BCS 1708 3;BR IF YES 

NEXT .ERRNO 

ERRHRD ERRNO, T173CMP .MSGSTAT sREPORT ERROR 
TRAP 
. WORD 
. WORD 
. WORD 

CKLOOP sLOOP ON ERROR, IF FLAG SEY 
TRAP 

Do a Write Sooyoten WRITE FIFO 1 i byte for a total of 65. written 

MOV #1,RO0 3F IFO BYTE COUNT 

MOV OTL 7WFDATA, R1 sFIFO WRITE DATA ADDRESS 


JSR PC, TL7WF IF sSETUP T1L7PK2 FOR WRITE FIFO 


D135 


- HARD TEST - - : 
TEX? “ot *EOROBET ES Prec GERG YEAS ur REhbG 84 17:14 SEQ 159 

3050 044522 012704 050370 MOV @T1L7PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

3051 044536 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ees TO EXECUTE 

3052 044542 004737 016336 JSR PC; CHKTSSR sWAIT FOR SSR TO SET 

3053 044546 FORCERROR 1728 sQ880FORCE ERROR IF FORCER=1 

3054 044562 103407 BCS 180% 36R IF CARRY SET (GOOD RETURN) 

3055 044564 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3056 044566 NEXT. ERRNO 

3057 044566 1728: ERROF ERRNO, 1T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
044566 i04455 TRAP CSEROF 
044570 001173 WORD 635 
044572 047056 WORD T175SSR 
044574 012046 WORD PKTSSR 

3058 044576 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

3059 044602 1808: CKLOOP sLOOP ON ERROR, IF FLAG SET 

noes 044602 104406 TRAP CSCLPl 

3061 3 Do a Write Subsystem READ STATUS 

3062 3 If Input Ready te Then Print Error 

3063 3 If Output Ready NOT= Then Print Error 

3064 3 If Data In Miss NOT= Then Print Error 

3065 044604 004737 050004 JSR PC,T1L7SRO sSETUP PACKET FOR READ STATUS 

3066 044610 012704 050370 MOV eTi7PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

3067 044614 010465 000000 - MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

3068 044620 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

3069 044624 FORCERROR 187% sQQ0FORCE ERROR IF FORCER=1 

3070 044640 103407 bcs 1908 36R IF CARRY SET (GOOD RETURN) 

3071 044642 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3072 044644 NEXT. ERRNO 

3073 044644 187$: ERROF ERRNO, 1T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
044644 104455 TRAP CSERDF 
044646 001174 .- WORD 636 
044650 046746 - WORD T173SSR 
044652 012046 . WORD PKTSSR 

3074 044654 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 

3075 044660 1908: CKLOOP sLOOP ON ERROR, IF FLAG SET 
044660 104406 TRAP CSCLP1 

3076 ; Set WORDS 0-7 of expd message buffer = to recv since not testing 

3077 044662 004737 050166 JSR PC, TL7SETEXP 3SET WORDS 0-7 EXPD=«RECV 

3078 044666 012701 046422 MOV OTI7EXSTA, R1 sGET EXPECTED READ STATUS 

3079 044672 012702 050262 MOV OTL7BFSTA.R2 sGET RECV READ STATUS 

3080 044676 012221 MOV CR2)+,C(R1L)> sSET EXPO WORD @8 = RECV TEMP 

3081 044700 011211 MOV CR2),(R1) sSET EXPD WORD @9 = RECV TEMP 

3082 044702 042711 000020 BIC @S2.INRDY,(R1) 3SET EXP INPUT READY= 0 

3083 044706 052711 000040 BIS @S2.QUTRDY,(R1) 3SET EXP OUTPUT READY= 1 

3084 044712 052711 000200 BIS 9S2.D0IM,(R1) sSET EXP DATA IN MISS = 1 

3085 044716 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

3086 044720 012701 050242 MOV OT17BFR,R1 sLOW RECV ADORESS FOR CKMSG2 

3087 044724 012702 046402 MOV @T1L7EXP Ro sEXPD ADDRESS 

3088 044730 012703 000024 MOV 620. ,R3 sNUMBER OF BYTES TO COMPARE 

3089 044734 004737 011500 JSR PC ,.CKMSG2 TEXPD EQUAL RECV? 

3090 044740 FORCERROR 192%,NOTSSR 3880 

3091 044750 103404 BCS 200% ;BR IF YES 

3092 044752 NEXT ERRNO 

3093 044752 19238: ERRHRD ERRNO,T173CMP,MSGSTAT sREPORT ERROR 
044752 104456 TRAP CSERHRD 
044754 001175 . WORD 637 


044756 047343 . WORD T1L73CMP 


cae 


TSVS - HARDWARE TESTS MACRO M1113 O06-FEB-84 17:14 SEQ 160 
TEST 6: SUBTEST S: FIFO VERIFY INPUT READY 

044760 012350 -WORD MSGSTAT 

3094 044762 2008: CKLOOP sLOOP ON ERROR, IF FLAG SET 
044762 104406 TRAP CSCLP1 

3095 ; Do Write Subsystem READ FIFO 

3096 044764 013700 002310 MOV OUNT ,RO sSET READ BYTE COUNT 

3097 044770 004737 050126 JSR PC, TL7RFIF sSETUP T17PK2 FOR READ FIFO 

3098 044774 012704 050370 MOV @T17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

3099 045000 010465 000000 MOV R4,TSOBC(RS) ;SET THE PACKET ADDRESS TO EXECUTE 

3100 045004 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

3101 045010 FORCERROR 212s s8B0FORCE ERROR IF FORCER=1 

3102 045024 103407 6cs 220% ;6R IF CARRY SET (GOOD RETURN) 

3103 045026 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

3104 045030 NEXT .ERRNO 

3105 045030 212s: ERROF ERRNO, 1T176SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
045030 104455 TRAP CSEROF 
045032 001176 -WORD 638 
045034 047122 . WORD T176SSR 
045036 012046 -WORD PKTSSR 

3106 045040 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

3107 045044 2208: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

— 045044 104406 TRAP CSCLP1 

3109 3 If Data read from FIFO NOT= to Data sent Then Print Error 

3110 045046 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

3111 045050 012702 046524 MOV @TL7WFOATA,R2 3GET EXPECTED ADDRESS FOR CKMSG2 

3112 045054 012701 050262 MOV @TL7BFSTA,R1 ;GET RECEIVED ADDRESS FOR CKMSG2 

3113 045060 013703 002310 MOV COUNT ,R3 sNUMBER OF BYTES TO COMPARE 

3114 045064 004737 011500 JSR PC ,.CKMSG2 FEXPD EQUAL RECV? 

3115 045070 FORCERROR 232%,NOTSSR 3880 

3116 045100 103406 BCS 2403 iBR IF YES 

3117 045102 NEXT. ERRNO 

3118 045102 013701 002310 2323: MOV COUNT ,R1 ;GET BYTE COUNT 

3119 045106 ERRHRD ERRNO,T175CMP,FIFEXP sREPORT ERROR 
045106 104456 TRAP CSERHRD 
045110 001177 . WORD 639 
045112 047512 . WORD T17S5CMP 
045114 012170 -WORD FIFEXP 

3120 045116 2408: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

5121 045116 104406 TRAP CsCLPl 

3122 ; Do oa write Subsystem READ STATUS 

3123 ; If Input Ready NOT= Tren Print Error 

3124 3 If Output Ready NOT <0 Tren Print Error 

3125 : If Date In Miss NOT=1 Tnen Print Error 

3126 045120 004737 050004 JSR PC,T17SRO :;SETUP PACKET FOR READ STATUS 

3127 045124 012704 050370 MOV OTL7PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

3128 045130 010465 000000 MOV R4,TSOB(RS) 3;SET THE PACKET ADDRESS TO EXECUTE 

3129 045134 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

3130 045140 FORCERROR 2523 :8@0FORCE ERROR IF FORCER=1 

3131 045154 103407 bcs 2603 3;6R IF CARRY SET (GOOD RETURN) 

3132 045156 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3133 045160 NEXT .ERRNO 

3134 045160 2528: ERROF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045160 104455 TRAP CSEROF 
045162 001200 WORD 640 
045164 046746 WORD TL73SSR 
045166 012046 . WORD PKTSSR 


TSVS 


3135 
3136 


3137 
3138 
3139 
3140 
3141 
3142 
3143 


- MARDWARE 
TEST 6: SUBTEST 5S: 


TESTS 


005237 
104406 
004737 


012701 
012702 


104403 


005737 
001402 
004737 


F13 
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002222 


002222 
017202 


FIFO VERIFY INPUT READY 


2608; 


2728: 


2808: 


300$: 


INC FATFLG 

CKLOOP 

Set WORDS 0-7 of expd message bu 
JSR BC. TL7SETEXP 

MOV @TL7EXSTA,R1 

MOV @T17BFSTA,R2 

MOV CR2)+,CR1)> 


BIS @S2. INRDY,(R1) 
BIC @S2.OUTRDY,(R1) 


ers 0S2.DIM,(R1) 

CLR RO 

MOV @T17BFR,R1 

MOV @T1L7EXP ,R2 

MOV #20. ,R3 

JSR PC ,.CKMSG2 

FORCERROR 272$,NOTSSR 
BcSs 2608 

NEXT .ERRNO 


ERRHRD ERRNO, T174CMP ,MSGSTAT 
CKLOOP 
ENOSUB 


TST FATFLG 
BEQ 300% 
JSR PC,CKDROP 


. SBTTL 


3e? 
; TEST 6: SUBTEST 6: 


SUBTEST DESCRIPTION: 


SEQ 161 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG a 


sSET WORDS 0-7 EXPD=RECV 

sGET EXPECTED READ STATUS 
sGET RECV READ STATUS 

sSET EXPD WORD 08 = RECV TEMP 
sSET EXPD WORD #9 = RECV TEMP 
sSET EXP INPUT READY= 1 

sSET EXP OUTPUT READY= 0 

sSET EXP DATA IN MISS = 1 
sHIGH RECV ADDRESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3:880 
;6R IF YES 
sREPORT ERROR 


;LOOP ON ERROR, IF FLAG SET 
TRAP 


CSsCLP1 


ffer = to wgey since not testing 


CSERHRD 
641 


T174CMP 
MSGSTAT 


CsCLP1 


s////1/////7// END SUBTEST S//S//////7/ 
L10063: 


TRAP 


sANY FATAL ERRORS ? 
;BRANCH IF NOT 
;TRY TO OROP THE UNIT 


TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 


This subtest verifies that the Reset FIFO function within 
the Write Miscellaneous Control 1 function initializes 


the FIFO to correct intial status. 


are performed: 


Tne following steps 


1. Reset an already initialized FIFO and check for 


proper status. 


2. Write a varying number of bytes (1-65.) into the 


FIFO and re after 


written the FI 
state. 


each block of bytes is 


can be be reset to it's initial 


CsESUB 


TSVS 


- HARDWARE 
TEST 6: SUBTEST 6: 


045314 
045314 
045314 


TESTS 


103407 


MACRO M1113 


015774 


002222 
050220 
010662 


002222 


050024 
050370 
000000 


016336 


G13 


06 -FEB-84 17:14 
FIFO VERIFY RESET FIFO TEST 


TEST STEPS: 
BEGIN 


REPEAT FOR BYTE COUNT 1 TO 65. 
BEGIN 


Do ae Write 
Do ea Write 


Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a aseoess buf fer 
Do a Write Subsystem Write Misc to Reset FIFO 
Do a Write Subsystem READ STATUS 
If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 
signals NOT*0 Then Print Error 
Do a Write Subsystem WRITE NPR to set tape direction out 


SEQ 162 


Do a Write Subsystem WRITE FIFO with the current byte count 
Subsystem Write Misc to Reset FIFO 
Subsystem READ STATUS 
If all Tape Status 2 (ICER,IFMK,IHER) Flip-flop 
signv.is NOT*O Tren Print Error 


END 
BGNSUB 37//////////7/ BEGIN SUBTEST /////////7/ 
T6.6: 
TRAP Cs6SUB 
s Write to TSSR register to soft initialize the controller 
$: 
JSR PC,.SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
BCS 10$ ;B8R IF SOFT INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDOF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CSEROF 
-WORD 641 
«WORD SFIERR 
-WORD SF IMSG 
3 Do a WRITE CHARACTERISTICS to setup o message buffer 
10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
MOV @T1L7PACKET,R& sGET THE ADORESS OF COMMAND PACKET 
JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42% sQ880FORCE ERROR IF FORCER=1 
BcS 50$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
42%: ERRDF ERRNO,Ti7SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 642 
-WORD T17SSR 
WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
508: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
8 Do a Write Subsystem Write Misc to Reset FIFO 
JSR PC, T1L7RSF IF sSETUP PKT FOR WRITE MISC RESET FIFO 
MOV OT17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBC(RS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKKTSSR sWAIT FOR SSR TO SET 
FORCERROR 62$ s@BOFORCE ERROR IF FORCER=1 
BCS 70$ ;BR IF CARRY SET (GOOD RETURN) 


TS 
TE 


VS - HARDWARE rests 


ST 6: SUBTEST 6 


3269 
3271 


: FIFO VER 


010001 


002222 


050004 
050370 


000000 
016336 


"VERIFY RESET Fi 


-FEB- 
FO TEST 


62%: 


708: 


77$: 


80$: 


92%: 


H13 


17:14 SEQ 163 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO,T172SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 643 
-WORD 1172SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 


CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Do a Write Subsystem READ STATUS 
If = Tape Status 2 (ICER,IFMK,IHER) flip-flop 


@nals NOT=0 Then Print Error 
JSR. PC,T17SRD sSETUP PACKET FOR READ STATUS 


MOV @Ti7PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC,.CHKTSSR sWAIT ye SSR TO SET 
FORCE 778 @AODFORCE ERROR IF FORCER=1 
Ss 803 ;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR ow. we SET 
CSEROF 
"WORD 644 
«WORD 1173SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG te. com 
$CL 
JSR PC, TIL 7SETEXP ;SET WORDS 0-7 EXPD=RECV CNOT TESTING ) 
MOV @TL7EXSTA,R1 sGET EXPECTED READ STATUS 
MOV @TL7BFSTA,R2 sGET RECV READ STATUS 
MOV CR2),(R1) sSET EXPD WORD #8 = RECV TEMP 
BIC #S1.ICER,(R1) sSET EXPD ICER =0 
BIC @S1.IFMK,(R1) sSET EXPO IFMK =0 
BIC @S1.IHER,(R1) sSET EXPO IHER =0 
MOV 2(R2),2(R1) sSET EXPD WORD #9 = RECV (NOT TESTING) 
CLR RO ;HIGH RECV ADDRESS FOR CKMSG2 
MOV OT17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV @TL7EXP,R2 sEXPD ADDRESS 
MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC, CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 92$,NOTSSR ;9a0 
BCS 100$ ;BR IF YES 
NEXT .ERR 


NO 
ERRHRD ERRNO,1177CMP,MSGSTAT sREPORT ERROR 
TRAP CSERHRD 


-WORD 645 

-WORD T177CMP 

-WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 


TRAP CSCLPl 


Do a Write Subsystem WRITE NPR to set tape direction out 
MOV @NP .OUT ,RO ;SET TAPE DIRECTION OUT 
JSR PC, T17SNPR ;SETUP T17PK2 FOR WRITE NPR 


TSVS - HARDWARE TESTS 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


3272 045662 012704 
3273 045666 010465 
3274 045672 004737 


3285 045740 012702 


I13 
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050370 
000000 
016336 


002222 


046422 
000100 


000001 002310 


002222 


050024 
050370 
000000 


016336 


1128; 


130$: 


; REPEAT FOR BYTE COUNT 1 TO 65. 


3 
150$: 


152$: 


MOV @T17PK2,R4 
MCV R4, TSOBCRS) 
JSR PC ,.CHKTSSR 
FORCERROR 1le$ 
BCS 120 

V RO,R1 
NEXT .ERRNO 


ERROF ERRNO, T174SSR,PKTSSR 


INC FATFLG 
CKt. GOP 


SEQ 164 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT sg SSR TO SET 

@@OFORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CsERDF 


-WORD 646 
«WORD 1174SSR 


«WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


a incrementing pattern in FIFO data buffer 
Vv 


@TL7EXSTA,R1 


MOV 064. ,R2 
CLR RO 

40VvB RO,CR1)+ 
INC RO 

DEC Re 

BGT 130$ 


MOV #1,COUNT 


;EXPD WRITE FIFO DATA BUFFER 
;TEST PATTERN SIZE 

s INCREMENT TEST PATTERN 
;STORE INCREMENT TEST BYTE 
:SET NEXT PATTERN 

;DONE? 

;BR IF NO 


sGET FIRST BYTE COUNT 


Do « Write Subsystem WRITE FIFO with the p= gg a count 


MOV COUNT RO 


MOV @TL7EXSTA,R1 

JSR PC, T17WFIF 

MOV @T17PK2,R4 

MOV R4, TSOBCRS) 
PC, CHKTSSR 

FORCERROR 1Se$ 

BCS 16 

MOV RO,R1 

NEXT .ERRNO 


R 
ERROF ERRNO,T17SSSR,PKTSSR 


sREPEAT LOOP LAB 
sFIFO BYTE COUNT 
sFIFO WRITE DATA ADDRESS 
sSETUP T17PK2 FOR WRITE FIFO 
;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@@0FORCE ERROR IF FORCER=1 
3;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 


-WORD 647 
-WORD 1T175SSR 


WORD PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do a Write Subsystem Write Misc to Reset FIFO 


INC FATFLG 
CKLOOP 

JSR PC, T17RSF IF 
MOV oTi7PK2, R4 
MOV R4, TSDBCRS) 
JSR PC, CHKTSSR 
FORCERROR 1628 
BCS 17 

MOV RO,R1 


NEXT. ERRNO 


;SETUP PKT FOR WRITE MISC RESET FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@@80FORCE ERROR IF FORCER=1 
;6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


TsvS 


3319 


046112 
046112 


- HARDWARE TESTS 
TEST 6: SUBTEST 


104455 
001210 
046702 
012046 
005237 


104406 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001211 
046746 
012046 
005237 


104406 
004737 
012701 
012702 
011211 
042711 
042711 
042711 
016261 
005000 


012701 
012702 
012703 
004737 


103404 
104456 
001212 
047674 
012350 


104406 


005237 
023727 
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002222 


050004 
050370 
000000 
016336 


000002 


002310 
002310 000101 


162%: 


170$; 


177$: 


180$: 


1928: 


2508; 


J1i3 
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6: FIFO VERIFY RESET FIFO TEST 


ERROF ERRNO,T172SSR,PKTSSR 
INC FATFLG 
CKLOOP 


Do a Write Subsystem READ STATUS 


SEQ 165 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 648 
-WORD 1172SSR 
-WORD PKTSSR 

sSET FATAL ERROR FLAG 

sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 


signals NOT=0 Then Print Error 


JSR PC,T17SRD 

MOV @Ti7PK2,R4 

MOV R4, TSOBCRS) 

JSR PC,.CHKTSSR 

FORCERROR 177$ 

BCS 180$ 

MOV RO,R1 

NEXT .ERRNO 

ERROF ERRNO, T173SSR,PKTSSR 
FATFLG 

CKLOOP 

JSR PC, T17SETEXP 

MOV @TL7EXSTA,R1 

MOV @TL7BFSTA,R2 

MOV CR2),(R1) 

BIC #S1.ICER,(R1) 

BIC 0S1.IFMK,CR1) 

BIC #S1.IHER,(R1) 

MOV 2(R2),2(R1) 

CLR RO 

MOV @T17BFR,R1 

MOV @T1L7EXP,R2 

MOV #20. ,R3 

JSR PC,CKMSG2 

— 192$,NOTSSR 

NEXT .ERRNO 


ERRHRD ERRNO,T177CMP,MSGSTAT 


CKLOOP 

FORCEXIT 260$ 
INC Cc 

CMP COUNT, #65. 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT — SSR TO SET 

@aOFORCE ERROR IF FORCER=1 
:BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


TRAP CSERDF 
-WORD 649 
WORD T173SSR 
-WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3SET WORDS 0-7 EXPD=RECV (NOT TESTING) 
;GET EXPECTED READ STATUS 
;GET RECV READ STATUS 
;SET EXPD WORD #8 = RECV TEMP 
sSET EXPD ICER =0 
;SET EXPD IFMK =0 
;SET EXPO IHER =0 
;SET EXPD WORD #9 = RECV (NOT TESTING) 
iHIGH RECV ADORESS FOR CKMSG2 
;LOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 
;9a0 
;B8R IF YES 
sREPORT ERROR 
TRAP CSERWRD 
-WORD 650 
. WORD T177CMP 
.WORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPL 


;GET NEXT BYTE COUNT 
sDONE ALL BYTES? 


TSVS - HAROWARE TESTS 


TES 


T 6: SUBTEST 6: 


046336 
046340 
046344 


046344 
046344 
046344 


101002 
000137 


104403 


005737 
001402 
004737 
004737 
103002 
000137 


104432 
002112 


K13 


MACRO M1113 06-FEB-84 17:14 SEQ 166 
FIFO VERIFY RESET FIFO TEST 
BHI 260$ 3;68R IF YES 
045764 JMP 150$ 300 ANOTHER BYTE COUNT 
2603: 
ENDSUB 344//////7//// END SUBTEST S/S/// 4/7/77 
10064: 
TRAP CsESsuB 
002222 TsT FATFLG sANY FATAL ERRORS ? 
BEQ 300$ ;BRANCH IF NOT 
017202 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
016456 300$: JSR PC, TSTLOOP 300 ITERATIONS? 
BCC 305$ ;6R IF 
040424 sone JMP T17L00P ;LOOP UNTIL ITERATIONS DONE 
EXIT TST s474/7714//7/ EXIT TEST SSSSSSSSAS/ 
TRAP CSEXxIT 
-WORD L10056-. 
3° 
;LOCAL STORAGE FOR THIS TEST 
as 
T17MSK: sMASK OF UNTESTED BITS IN READ STATUS BYTES 
sUNTESTED BITS ARE SET TO 1 
.BYTE tC<000> sBYTE O MASK 
.BYTE tC<340> ;BYTE 1 MASK (PARERR, IRESV2, IRESVL) 
.BYTE tC<017> sBYTE 2 (CTIMER A, TIMER B,UNDEF INED<1:0>) 
.BYTE re) sMAKE IT EVEN 
T17ExP: ;BEGIN EXPECTED DATA BUFFER 
-WORDB O sMESSAGE TYPE 
-WORD O ;OATA FIELD LENGTH 
-WORDB O ;RBPCR 
-WORD O :xXSTO 
-WORD O 3XSTL 
-WORD O :xXST2 
-WORDB O 3XST3 
-WORD O ;XST4 CALWAYS PRESENT FOR WRITE SUB.) 
TI7EXSTA: .BLKB 66. ;EXPECTED READ STATUS AND WRITE FIFO DATA 
T17EXEND: sEND EXPECTED DATA BUFFER 
TI7WFDATA: .BLKB 66. sWRITE FIFO EXPECTED DATA BUFFER 
3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
$e 
111 106 TST17ID: -ASCIZ ‘FIFO Exerciser’ 
122 111 T17SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
122 111 T172SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
122 111 T173SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Fai led’ 
122 111 T174SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Nor) Failed’ 
122 111 T175SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write FIFO) Failed’ 


Ts 
Te 


L1i3 


VS - HARDWARE =" MACRO M1 -FEB- 17:14 SE 67 
ST 6: SUBTEST 6 Piro VERSES Abs, °CiES fer nl 
3414 047122 127 122 111 T176SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read FIFO) Failed’ 
3415 047165 106 111 106 T171CMP:.ASCIZ ‘FIFO Status in WORD 09 Incorrect after Initialize’ 
3416 047247 122 145 141 T172CMP:.ASCIZ ‘Read FIFO Data not equal to Write FIFO , Data is in WORD 48’ 
3417 047343 106 111 106 T173CMP:.ASCIZ ‘FIFO Status (In WORD #9) Incorrect after WRITE FIFO’ 
3418 047427 106 111 106 T174CMP:.ASCIZ ‘FIFO Status (In WORD #9) Incorrect after READ FIFO’ 
3419 047512 122 145 141 T17SCMP:.ASCIZ ‘Read FIFO Data not equal to Write FIFO Data’ 
3420 047566 106 111 106 T176CMP:.ASCIZ ‘FIFO Status (In WORD #9) Incorrect after READ FIFO from an Empty FIFO’ 
3421 047674 106 111 106 T177CMP:.ASCIZ ‘FIFO Status (In WORD #9) Incorrect after RESET FIFO’ 
3422 EVEN 
3423 
3424 3° 
3425 ; CLEAR MESSAGE BUFFER 
3426 a- 
3427 047760 T17CLRBUF : 3 
3428 047760 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
3429 047764 012701 050242 MOV @T17BFR,R1 ;GET MESSAGE BUFFER ADORESS 
3430 047770 012702 000120 MOV @T1L7BEND-T17BFR,R2 ;SIZE OF MESSAGE BUFFER IN BYTES 
3431 047774 105021 10$: CLRB CR1)+ ;CLEAR A BYTE 
3432 047776 005302 DEC Re 3; DONE? 
3433 050000 003375 BGT 10$ 3;68R IF NO 
3434 050302 000207 RTS PC ;RETURN 
3435 
3436 . 3¢ 
Pate 3; SETUP T17PK2 PACKET FOR READ STATUS 

; - 
3439 050004 T17SRO: 
3440 050004 004737 047760 JSR PC, Li Le es a ;CLEAR MESSAGE BUFFER 
3441 050010 012700 050400 MOV eTi70T2,.R ;WRITE SUBSYSTEM DATA BUFFER 
3442 050014 112720 000005 MOVB OPW. RDSTATUS, CRO)+ ;STORE READ STATUS COMMAND IN BSELO 
3443 050020 105010 CLRB CRO) ;CLEAR BSEL1 
3444 050022 000207 RTS PC ;RETURN 
3445 
3446 3¢ 
etd 3; SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 

a. 
3449 050024 TL7RSFIF: 
3450 050024 004737 047760 JSR PC, T17CLRBUF ;CLEAR MESSAGE BUFFER 
3451 050030 012700 050400 MOV #T17DT2,RO ;WRITE SUBSYSTEM DATA BUFFER 
3452 050034 112720 000010 MOVB oPW.WMISC,CRO)>+ sSTORE WRITE MISCELLANEOUS IN BSELO 
3453 050040 112710 000030 MOVB @MS.RSFIF!IMS.RSTAP,(RO) ;STORE BSEL1 CLEAR FIFO CODES 
3454 050044 000207 RTS PC ;RETURN 
3455 
3456 34 
core ; SETUP T17PK2 PACKET FOR WRITE NPR 

’ 
3459 3; INPUT; 
ter | ; RO CONTAINS BSEL1 NPR DATA 

8 
a] 3 SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY. 

a. 
3464 050046 T1L7SNPR: 
3465 050046 004737 047760 JSR PC, TL7CLRBUF ;CLEAR MESSAGE BUFFER 
3466 050052 012701 050400 MOV #T170T2,R1 ;WRITE SUBSYSTEM DATA BUFFER 
3467 050056 112721 000011 MOVB oPW.WNPR,(CR1)>+ :;STORE WRITE NPR IN BSELO 
3468 050062 052700 000020 BIS #NP .WRP ,RO ;D0N’ T WRITE WRONG PARITY 
3469 050066 110011 MOVB RO,(R1) ;STORE NPR DATA IN BSEL1 
3470 050070 000207 RTS PC ;RETURN 


TSVS - HARDWARE TESTS. 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


050210 


004737 
012701 
112721 
110021 
000207 


012701 
012700 


012703 


050220 


MACRO M1113 06-FEB-84 17:14 


3* 
; SETUP T17PK2 PACKET FOR WRITE FIFO 


3 
INPUT: 


: 
; 
: 
g = 
TLI7WF IF: 


M13 


RO CONTAINS BYTE COUNT 
R1 CONTAINS DATA PATTERN BLOCK ADDRESS 


SEQ 168 


;SAVE R1-RS UNTIL NEXT RETURN 
;CLEAR MESSAGE BUFFER 

;WRITE SUBSYSTEM DATA BUFFER 
:;STORE WRITE FIFO IN BSELO 
;STORE BYTE COUNT IN BSEL1 
;CLEAR SEL2 CUNUSED) 

:;STORE DATA PATTERN BYTE 
;DONE ALL BYTES? 

;B8R IF NO 

;RETURN 


;CLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
;STORE READ FIFO IN BSELO 
;STORE BYTE COUNT IN BSEL1 
;RETURN 


;GET EXPD ADDRESS 
;GET EXPD SIZE 
_ A BYTE 


;BR IF NO 
;RETURN 


3¢ 
;Set WORDS 0-7 of expd message buffer = to recv since not testing 


SAVREG 
047760 JSR PC, T17CLRBUF 
050400 MOV #T170T2,R2 
000004 MOVB OPW. WFIFO,CR2)>+ 
MOVB RO,CR2)+ 
CLR (R2)+ 
10$: MOVB CR1i)+,CR2)+ 
DEC RO 
BGT 10$ 
RTS PC 
3;¢ 
; SETUP T17PK2 PACKET FOR READ FIFO 
3 
; INPUT: 
3 RO CONTAINS SEL2 BYTE COUNT 
he 
T17RFIF 
047760 JSR PC, TL 7CLRBUF 
050400 MOV #T170T2,R1 
000003 MOVB oPW.RFIFO,CR1)+ 
MOVB RO,CR1)>+ 
RTS PC 
3¢ 
; CLEAR EXPECTED DATA MESSAGE BUFFER 
3 
T17CLEXP: 
046402 MOV @T1L7EXP,R1 
000122 MOV #T17EXEND-T17EXP,RO 
10$: CLRB CR1)+ 
DEC RO 
BGT 10$ 
RTS PC 
g° 
T1L7SETEXP: 
046402 MOV @T17EXP ,R2 
050242 MOV #T17BFR,R3 
000010 MOV #8.,RO 
5$: MOV CR3)+,CR2)+ 
DEC RO 
BGT S$ 
RTS PC 


.2¢,¢10>§177770 


;GET EXPD 

:;GET READ STATUS RECV BUFFER 
3;SET WORDS 0-7 EXP=RECV 

3;SET EXPD=RECV 

;DONE WORDS O-7 WORDS? 

;68R IF NO 

;RETURN 
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TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 169 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 
coer ;WRITE CHARACTERISTICS COMMAND PACKET 
2 
3532 050220 TL7PACKET: sCOMMAND PACKET FOR TEST 
3533 050220 100004 .WORD 100004 sWRITE CHARACTERISTICS COMMAND, WI1H ACK 
3534 050222 050230 .WORD T17DATA sADDRESS OF CHARACTERISTICS BLOCK 
3535 050224 000000 .WORD 0 
at 050226 000012 .WORD 10. sMINIMUM MESSAGE PACKET SIZE 
3538 050230 T17DATA: sCHARACTERISTICS DATA BLOCK 
3539 050230 050242 .WORD T17BFR sADDRESS OF MESSAGE BUFFER 
3540 050232 000000 -WORD 0 
3541 050234 000024 .WORD 20. ;LENGTH OF MESSAGE BUFFER 
3542 050236 000000 .WORD 0 ;ESS,ENB EAI, ERI 
oe 050240 000000 .WORD O s;EXTENDED FEATURES UNIT NO. ETC. 
3545 
ee s;MESSAGE BUFFER FOR ALL TEST 6 COMMANDS 
3548 050242 T17BFR: ;BEGIN MESSAGE BUFFER 
3549 050242 000000 -WORD 0 sMESSAGE TYPE 
3550 050244 000000 WORD 0 ;DATA FIELD LENGTH 
3551 050246 000000 WORD O ;RBPCR 
3552 050250 000000 WORD 0O :XSTO 
3553 050252 000000 WORD 0 :XST1 
3554 050254 000000 WORD O xST2 
3555 050256 000000 .WORD O 3XST3 
3556 050260 000000 -WORD 0 ixsT4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
3557 050262 T1L7BFSTA: .BLKB 64. sREAD STATUS AND WRITE FIFO BUFFER 
= 050362 ~siamaats sEND OF MESSAGE BUFFER 
<2 WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
1 
3563 050370 .*<,+10>€177770 
3565 050370 T17PK2; 
3566 050370 100006 .WORD P.WRTSUB!P. ACK ;WRITE SUBSYSTEM WITH ACK 
3567 050372 050400 -WORD T17DT2 ;LOW ADDRESS OF DATA BLOCK 
3568 050374 000000 -WORD 0 s;HIGH ADDRESS OF DATA BLOCK 
344 050376 000012 .WORD 10. sMINIMUM MESSAGE PACKET SIZE 
3571 050400 T170T2: ;DATA BLOCK 
3572 050400 000 .BYTE 0 ;BSELO 
3573 050401 000 .BYTE 0 ;BSEL1 
3574 050402 000000 .WORD 0 ;SEL2 
te 050404 -BLKB 66. ;WRITE FIFO DATA OUTPUT BUFFER 
3577 050506 ENDTST 
050506 L10056: 
ae 050506 104401 TRAP CSETST 
284 .SBTTL TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
; +. 
3581 ; TEST DESCRIPTION: 
3582 3 
3583 ; 
3584 ; TEST STEPS: 
3585 


; 
3586 ; REPEAT FOR LOOPCNT 


mw 
we 


; * [HARDWARE TESTS 


MACRO 


STATIC TRANSPORT BUS 


051216 
016510 
000012 


015774 


002222 
951700 
010662 


002222 


051722 
000200 


051546 
051750 
000000 


016336 


M111 
I 


5 
NTERFACE TEST 


002216 


000012 


T18LOOP ; 


3 
58: 


a 
108: 


128; 


B14 
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BEGIN 

Write to TSSR cepneter to soft initialize the controller 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Features Hardware Switch Clear then: 


Do Write aoreses Write Miscelleneous to Set Extended Features. 


Do WRITE CHARACTERISTICS to select reserved unit 7 
Do a Write Subsystem READ STATUS 


transport interface signals are asserted then Print Error 


BGNTST 


T7:: 
MOV @TST18I0,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 


MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
Write to TSSR register to soft initialize the controller 


JSR PC,SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

BCS 108 s8R IF SOFT INIT OKAY 

MOV RO,R1 SAVE CONTENTS OF TSSR 

ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CSERDF 
.WORD 700 
-WwORD SFIERR 
-WORD SFIMSG 

Do WRITE we to check for Extended Features Switch 

CLR sCLEAR FATAL ERROR FLAG 

MOV OTIOPACKET, R4 sGET THE ADDRESS OF COMMAND PACKET 

JSR PC,WRICHR 300 WRITE CHARACTERISTICS COMMAND 

FORCERROR 128 sQGOFORCE ERROR IF FORCER=1 

Bcs 158 ;6R IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO,T18SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
«WORD 701 
.wORD T18SSR 
wORD PKTSSR 

INC FATFLG SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


If Extended Features Hardware Switch Clear then: 


Do Write Subsystem Write Miscellaneous to Set Extended Features. 


MOV @TL6BFR,R1 sMESSAGE BUFFER ADDRESS 

BIT @X2.EXTF ,xST2(R1) sEXTENDED FEATURES SWITCH SET? 

BNE 30% sBR IF YES 

JSR PC, T1ISSMISC sSETUP PACKET FOR WRITE MISCELLANEOUS 
MOV @T1LBPK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOB(RS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

F ORCERROR 22% sQ@OFORCE ERROR IF FORCER<i 


BCcS 308 s6R IF CARR: SET (GOOD RETURN) 


TEX -sHAEPHORE TRRNSeon"GDO UAHA: aPE-FERI9* 17:14 


3638 
3639 
3640 


051060 


010001 


104455 
001276 
051312 
012046 
005237 


104406 


005037 
012704 
004737 


103407 
010001 


013700 


004737 


002< 22 


002222 
051700 
010662 


002222 


051722 
051714 


002222 


051570 


228: 


308; 


42%; 


623%: 


708; 


~ 


C14 


MOV RO,R1 
NEXT .ERRNO 
ERRDF ERRNO,T182SSR,PKTSSR 


INC FATFLG 
CKLOCP 


SEQ 171 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
«WORD 702 
«WORD T1182SSR 
-WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 


Do WRITE “—e to select reserved wiit 7 


CLR FA 

MOV eT IBPACKET, R4 

JSR PC ,WRICHR 

FORCERROR 42% 

6cs 50$ 

MOV RO,R1 

NEXT .E 

ERROF ERRNO,T18SSR,PKTSSR 


INC FATFLG 


CKLOOP 

Clear mess buf fer 

MOV @T1L R,R1 

MOV TIBDATA+4,RO 

CLRB CR1)> 

DEC RO 

BGT 60% 3;8R 

Do ea Write Subsystem READ STATUS 
JSR PC, T18SRD 

MOV otierxs. RG 

MOV R4,TSOB(RS) 

JSR PC ,.CHKTSSR 

FORCERROR 62% 

6cs 708 

MOV RO,R1 

NEXT. ERRNO 

ERRDF ERRNO, T183SSR,PKTSSR 

INC FATFLG 

CKLOOP 


sCLEAR FATAL ERROR FLAG 

sGET THE ADDRESS OF COMMAND PACKET 

100 piv ouvonta want COMMAND 
@SBOFORCE ERROR IF FORCER=1 

:6R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
«WORD 703 
-WORD T18SSR 
«WORD PKTSSR 


sSET FATAL ERROR FLAG 
:LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


3sGET MESSAGE BUFFER ADDRESS 
sSIZE OF MESSAGE BUFFER IN BYTES 
;CLEAR A BYTE 

sOONE ? 

IF NO 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s8BOFORCE ERROR IF FORCER=1 
36R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
«WORD 704 
.WORD T183SSR 
.WORD PKTSSR 
iSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP = CSCLPL 


Set first 8 words of expd message buffer + to recy since not testing 
Set unused bits in Read Status expd equal revd 


JSR PC, TLOSE TE XP 


sSET SOME EXPD TO RECV 


TSVS - HARDWARE 


TEST ?: 


STATIC 


051064 
051066 
051072 
051076 
051102 
051106 
051116 
051120 
051120 
051120 
051122 
051124 
051126 
051130 
051130 


051132 
051136 
051140 
051144 
051150 
051152 
051156 
051156 
051156 
051160 


051162 
051162 
051163 
051164 
051165 


051166 


051206 
051210 


051212 
051214 
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TESTS MACRO M1113 06-FEB-84 17:14 SEQ 172 
TRANSPORT BUS INTERFACE TEST 
: If any transport interface signals are asserted then Print Error 
005000 CLR RO sHIGH RECV ADDRESS FOR CKMSGo 
012701 051722 MOV @T16BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
012702 051166 MOV OT1IBEXP ,R2 sEXPD ADDRESS 
012703 000012 MOV #10. ,R3 sNUMBER OF WORDS TO COMPARE 
004737 011500 JSR PC, CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 62% ,NOTSSR 3880 
103404 cs ;BR IF YES 
NEXT .ERRNO 
828: ERRHRD ERRNO, TISCMP,MSGSTAT sREPORT ERROR 
104456 TRAP CSERHRD 
001301 «WORD 705 
051423 -WORD T18CMP 
012350 -WORD MSGSTAT 
90% CKLOOP sLOOP ON ERROR, IF FLAG SET 
104406 TRAP CSsCLP1 
005737 002222 TST FATFLG sANY FATAL ERRORS ? 
001402 BEQ 160% sBRANCH IF NOT 
004737 017202 JSR PC ,CKOROP sTRY TO OROP THE UNIT 
004737 016456 1608: JSR PC, TSTLOOP 300 ITERATIONS? 
103002 BCC 165% 3;8R IF NO 
000137 050526 - JMP T18L00P 3LOOP UNTIL ITERATIONS DONE 
1658: 
EXIT TST 
104432 TRAP CSExIT 
000606 -WORD L10065-. 
ta 
sLOCAL STORAGE FOR THIS TEST 
g° 
T16MSK; sMASK OF UNUSED BITS IN READ STATUS BYTES 
377 BYTE *t€<000> ;BYTE O MASK 
037 BYTE tC<340> sBYTE 1 
100 BYTE *¢tC<277> sBYTE 2 
000 -BYTE O sMAKE IT EVEN 
T18EXP: sEXPECTED DATA BUFFER 
000000 -WORD 0O sMESSAGE TYPE 
000000 -WORD O sDATA FIELD LENGTH 
000000 -WORD O ;RBPCR 
000000 «WORD O sXSTO 
000000 «WORD O sXST1 
000000 «WORD O sxST2 
000000 «WORD O 3xST3 
000000 -WORD O sXST& CALWAYS PRESENT FOR WRITE SUB) 
000000 -WORD O sREAD STATUS BYTE 1/70 
000000 -WORD O sREAD STATUS BYTE 2 
377 020 T16xS: .BYTE 377,020 sREAD STATUS BYTE 0/1 EXPECTED BASE 
000000 . WORD 0 sREAD STATUS BYTE 2 EXPECTED BASE 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


TSvVS 


-_MAROWARE TESTS 
TEST ?: 


MACRO M1113 


06 -FEB-84 17:14 


STATIC TRANSPORT BUS INTERFACE TEST 


051423 


051526 
051526 
051532 
051536 
051542 
051544 


051546 
051546 
051552 
051556 
051562 
051566 


051570 


051664 
051670 


012700 
112720 
105010 
000207 


012700 
112720 
112710 
000207 


012702 


051760 
000005 


051760 
000010 
000200 


051166 
051722 
000010 


051162 
051212 
051214 


000002 


TST18ID: 
T18SSR; 
T182SSR: 
T163SSR: 
T1SCMP ; 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
- EVEN 


E14 


SEQ 173 


-ASCIZ ‘Static Transport Bus Interface’ 

‘WRITE CHARACTERISTICS Failed’ 

‘WRITE SUBSYSTEM (Write Misc) Failed’ 

‘WRITE SUBSYSTEM (Read Status) Fai led’ 

‘Transport Bus Interface Signals NOT Negated After Unit 7 Selected’ 


3¢ 
:; SETUP T18PK2 PACKET FOR READ STATUS 


a= 

T18SRD: 
SAVREG 
MOV 
MOVB 


CLRB 
RTS 


sSAVE R1-RS UNTIL NEXT RETURN 


@T16DT2,RO sWRITE SUBSYSTEM DATA BUFFER 

OPW. RDSTATUS,(RO)>+ sSTORE READ STATUS COMMAND IN BSELO 
CRO) sCLEAR BSEL1 

PC sRETURN 


3° 
; SETUP T18PK2 PACKET FOR WRITE MISC. 


g° 
TISSMISC: 
VREG 


iSet first 8 words of expd mess 
Set unused bits in Read 


T18SETEXP: 


S$: 


sSAVE R1-RS UNTIL NEXT RETURN 

sWRITE SUBSYSTEM DATA BUFFER 

sSTORE WRITE MISCELLANEOUS IN BSELO 
te aid EXTENDED FEATURES IN BSEL1 
3 \ 


#T180T2,RO 
oPu. WMISC,(CRO)-+ 
at sae 


buffer = to recv since not testing 
tatus expd equal rcvd 


@T1BEXP ,R2 sGET EXPO 

OT18BFR,R3 sGET READ STATUS RECV BUFFER 

#8. ,RO sSET FIRST 8 WORDS EXP=RECV 
CR3)+,CR2)> sSET EXPD*RECV 

RO sDONE FIRST 8 WORDS? 

S$ sBR IF NO 

@T1L8MSK ,R1 sGET UNUSED BIT MASK 

T16xS,(R2) sSETUP BASE EXPECTED BYTE 1/0 
T18xS+2,2(R2) sSETUP BASE EXPECTED BYTE 2 
(R3),RO :;GET RECV BYTE 1 AND BYTE O 
(R1),RO sCLEAR ALL BUT UNUSED 

RO,CR2) sCLEAR UNUSED IN EXP 

RO,(R2) sSET UNUSED EXPD=-RECV FOR COMPARE 
2(R3),RO sGET RECV BYTE 2 

2(R1),RO sCLEAR ALL BUT UNUSED 

RO,2(R2) sCLEAR UNUSED IN EXxPD 

RO,2(R2) sSET UNUSED EXPD=RECV FOR COMPARE 
3(R2) sCLEAR EXPD BYTE 3 (UNUSED) 

3(R3) sCLEAR RECV BYTE 3 (UNUSED) 

PC 3;RE TURN 


-*¢,010>€177770 
3 
sWRITE CHARARTERISTICS COMMANC PACKET 
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TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 174 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
3789 ; 
3790 051700 TLBPACKET; sCOMMAND PACKET FOR TEST 
3791 051700 100004 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
3792 051702 051710 . WORD TL8DATA sADORESS OF CHARACTERISTICS BLOCK 
3793 051704 000000 «WORD O 
iio. 051706 000012 . WORD 10. sMESSAGE PACKET MINIMUM SIZE 
3796 051710 T18DATA: sCHARACTERISTICS DATA BLOCK 
3797 051710 051722 -WORD T18BFR sADDRESS OF MESSAGE BUFFER 
3798 051712 000000 -WORDB O 
3799 051714 000024 «WORD 20. sLENGTH OF MESSAGE BUFFER 
3800 051716 000000 -WORD O ;ESS,ENB,EAI,ERI 
cone 051720 000007 . WORD 7 sSELECT RESERVED UNIT 7 
3803 
3804 051722 T18BFR: sMESSAGE BUFFER 
3805 051722 000000 «WORD O sMESSAGE TYPE 
3806 051724 000000 -WORD O ;DATA FIELD LENGTH 
3807 051726 000000 -WORD O sRBPCR 
3808 051730 000000 -WORD 0 3XSTO 
051732 000000 -WORD O sxXST1l 
3810 051734 000000 -WORDB O 3xST2 
3811 051736 000000 -WORD O 3XST3 
3812 051740 000000 «WORD O sXST4& CALWAYS PRESENT FOR WRITE SUBSYSTEM 
3813 051742 000000 «WORD O sREAD STATUS BYTE 1/70 RETURNED 
ty 051744 000000 -WORD 0 sREAD STATUS BYTE 2 
; 
te i +WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
3 
3819 051750 -*¢,¢10>€177770 
3821 051750 T18PK2: 
3822 051750 100006 -WORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
3823 051752 051760 - WORD T18DT2 ;LOW ADDRESS OF DATA BLOCK 
3824 051754 000000 -WORD O sHIGH ADDRESS OF DATA BLOCK 
4 051756 000010 «WORD 8, ;BUFFER EXTENT 
3827 051760 T180T2: sDATA BLOCK 
3828 051760 000 -<BYTE O ;BSELO 
3829 051761 000 -BYTE O ;BSEL1 
3830 051762 000000 -WORD O ;SEL2 
3831 051764 000000 «WORD O 3;DATA 
3832 
3833 
3834 051766 ENDOTST 
051766 L10065: 
051766 104401 TRAP CserTstT 
core -SBTTL TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 
see 
3837 ; TEST DESCRIPTION: 
3838 ‘ 
3839 : This test verifies the controller's Transport Bus 
3840 3 drivers, receivers, and ol gnat loopback logic. Note 
3841 3 that the Static Transport Bus test must have run 
aoe 3 correctly for this test to provide meaningful results. 
; 
3844 ; TEST STEPS: 
3845 3 
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TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 175 
TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 
3846 ; REPEAT FOR LOOPCNT 
3847 3 BEGIN 
3848 ; Do Subtest 1 - Loopback Control signals test 
3849 3 Do Subtest 2 - Loopback Read/Write signals test 
3850 ; Do Subtest 3 - Loopback Write Strobe test 
3851 3 Do Subtest 4 - Loopback Read Strobe test 
3852 3 
3853 s-- 
3854 
3855 
3856 051770 BGNTST 
051770 T8:: 
3861 051770 012700 060202 MOV #TST19ID,RO sASCII MESSAGE TO IDENTIFY TEST 
3862 051774 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
3863 052000 012737 000012 002216 MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
pees 052006 T19LOOP: 
oe -SBTTL TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 
867 
3868 zee 
3869 ; TEST 8: SUBTEST 1: 
3870 H 
ars ; SUBTEST DESCRIPTION: 
2 ; 
3873 ; This subtest verifies the Transport Control loopback 
3874 : path can transmit and receive correctly. The 
3875 3 control signals are all loopback signals other 
seve 3 than the read/write data (IW<7:0> and IR<7:0>). 
3 
3878 ; TEST STEPS: 
3879 H 
3880 3 The loopbeck signals IFAD, ITADO,ITAD1 ere the tape unit select 
3881 3 lines. Since reserved unit 7 must remain selected these signals 
3882 3 ere always set low. This further means the signals they drive 
fees 3 CISPEED, TROY. ION.) are only tested in the low state. 
8 
3885 ; BEGIN 
3886 3 Write to TSSR register to soft initialize the controller 
3887 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
3888 : If Extended Features Hardware Switch Clear then: 
3889 ; Do Write Subsyetes Write Miscellaneous to Set Extended Features. 
3890 : Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
3891 ; Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
3892 3 Do Write Subsystem Write Control to CLEAR loopback signals group 1. 
3893 ; Do Write Subsystem Write Format to CLEAR loopback signals group 2. 
3894 ; (the loopback signals have to be cleared here due to the flip-flops 
3895 : that are set on a i to O transition (IHER, IFMK,ICER)) 
3896 3 Do a Write Subsystem Write Misc to Reset Tape Status F -FLOPS 
3897 ; Do a Write Subsystem READ STATUS 
3898 ; If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 
84 : signals NOT=0 Then Print Error 
3 
3901 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
3902 ; BEGIN 
3903 : Do Write Subsystem Write Control to Drive loopbuck signals group 1. 
3904 3 Do Write Subsystem Write Format to Drive loopback signals group 2. 
3905 3 Do a Write Subsystem READ STATUS 


TSVS - HARDWARE oy 


TEST 8: SUBTEST 


052102 
052106 


36 052114 


3946 
3947 


052116 
052122 
052126 
052132 
052136 
052152 
052154 
052156 
052156 
052156 
052160 
052162 
052164 
052166 
052172 


1: LOOPBA 


104402 


004737 
103405 
010001 


104455 
001440 
003652 
012034 


005037 
012704 
004737 


103407 
010001 


104455 
001441 
060243 
“12046 
~05237 


104406 


012701 
032761 


012046 
005237 


015774 


002222 
062330 
010662 


002222 


062352 
000200 


062202 


062500 
* 000000 


016336 


002222 


000012 


SRERCORHAS., SFEKRE- 


or ef os oe oF oe oe 


3 
10$: 


12s: 


223: 


30$:;: 


H14 


4 17:14 SEQ 176 
est ot. 


If loopback data NOT= date sent Then Print Error 
Do a Write Subsystem Write Misc to Reset Tape Status F -FLOPS 
Do a Write Subsystem READ STATUS 
If ell Tape Status 2 CICER,IFMK,IHER) flip-flop 
signals NOT*0 Then Print Error 


BGNSUB 34/////1//1/// BEGIN SUBTEST S//S/////// 
T8.1: 
TRAP CsBSuUB 


Write to TSSR register to soft initialize the controller 
JSR PC,SOFINIT ;WRITE TO TSSR TO SOFT INITIALIZE 


BCS 10$ 3BR IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
TRAP CSsEROF 
-WORD 800 


. WORD SF IERR 
.WORD SFIMSG 
Do _—. —e to check for Extended Features Switch 


CLR ;CLEAR FATAL ERROR FLAG 

MOV eTLOPACKET, R4 sGET THE ADDRESS OF COMMAND PACKET 

JSR PC,.WRTICHR :D0 WRITE CHARACTERISTICS COMMAND 

FORCERROR les ;@@OFORCE ERROR IF FORCER=1 

BCS 15$ ;6R IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF  ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 801 
-WORD 1T19SSR 
WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


If Extended Features Hardware Switch Clear then: 
Do Write Subsystem Write Miscellaneous to Set Extended Features. 


MOV @T19BFR,R1 sMESSAGE BUFFER ADDRESS 

BIT @X2.EXTF,xXST2(R1) sEXTENDED FEATURES SWITCH SET? 

BNE 30$ ;BR IF YES 

JSR PC, T19SEXT ;SETUP PACKET FOR WRITE MISC INVERT 

MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 22s s@BOFORCE ERROR IF FORCER=1 

Bcs 30$ ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF ERRNO,T192SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 802 
«WORD 1192SSR 
«WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 


CKLOOP ;LOOP ON ERROR, IF FLAG SET 


T14 


TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 177 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 
052172 104406 TRAP CSCLPi 
3948 3 Do WRITE JSHARACTERISTICS to select reserved unit 7 
3949 052174 005037 002222 CLR sCLEAR FATAL ERROR FLAG 
3950 052200 012704 062330 MOV OTIOPACKET, R4 ;GET THE ADDRESS OF COMMAND PACKET 
3951 052204 004737 010662 JSR PC, WRTICHR 300 WRITE CHARACTERISTICS COMMAND 
3952 052210 FORCERROR 42$ s@@D0FORCE ERROR IF FORCER=1 
3953 052224 103407 BCS 50$ 3;6R IF CARRY SET (GOOD RETURN) 
3954 052226 010001 MOV RO,R1 :;SAVE CONTENTS OF TSSR 
3955 052230 NEXT. ERRNO 
3956 052230 42%: ERRDF ERRNO, TL9SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052230 104455 TRAP CSEROF 
052232 001443 . WORD 803 
052234 060243 -WORD T19SSR 
052236 012046 - WORD PKTSSR 
3957 052240 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
3958 052244 508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
052244 104406 TRAP CSCLP1 
3959 3 Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
3960 052246 012700 000100 MOV @NP .OUT ,RO 3;SET TAPE DIRECTION OUT 
3961 052252 052700 000040 BIS @NP LOOP ,RO ;SET LOOPBACK ENABLE 
3962 052256 004737 062042 JSR PC, T19SNPR s;SETUP T19PK2 FOR WRITE NPR . 
3963 052262 012704 062500 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
3964 052266 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
3965 052272 004737 016336 JSR PC,.CHKTSSR ;WAIT Seg A. TO SET 
3966 052276 FORCERROR 62$ ORCE ERROR IF FORCER=1 
3967 052312 103407 bcs 70$ 3;68R IF clare SET (GOOD RETURN) 
3968 052314 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
3969 052316 NEXT .ERRNO 
3970 052316 623: ERRDF ERRNO, T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052316 104455 TRAP CSEROF 
052320 001444 .- WORD 804 
052322 060411 .WORD T194SSR 
052324 012046 . WORD PKTSSR 
3971 052326 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
3972 052332 70$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
052332 104406 TRAP CSCLP1 
3973 ; Do Write Subsystem Write Control to CLEAR loopback signals group 1. 
3974 ; Do Write Subsystem Write Format to CLEAR loopback signals grove 2. 
3975 ; (the loopback signals have to be cleared here due to the flip-flops 
3976 ; that are set on a 1 to O transition (IHER, IFMK,ICER)) 
3977 052334 005000 CLR RO ;sWRITE O'S 
3978 052336 042700 000200 BIC @WwC.IFAD,RO sIFAD MUST ALWAYS #0 
3979 052342 042700 000100 BIC @WC.IOTAD,RO ;ITADO MUST ALWAYS =0 
3980 052346 042700 000040 BIC @wC.I1LTAD,RO sITAD1L MUST ALWAYS =0 
3981 052352 004737 062142 JSR PC, TLI9WCTL ;SETUP PACKET FOR WRITE CONTROL 
3982 052356 012704 062500 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
3983 052362 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
3984 052366 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
3985 052372 FORCERROR 82% :;@@DFORCE ERROR IF FORCER=1 
3986 052406 103407 bcs 90% ;BR IF CARRY SET (GOOD RETURN) 
3987 052410 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
3988 052412 NEXT. ERRNO 
3989 052412 82s: ERRDF ERRNO,T197SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052412 104455 TRAP CSEROF 
052414 001445 . WORD 805 
052416 060563 . WORD TL97SSR 


052420 012046 -WORD PKTSSR 


J14 


TSVS - HAROWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 178 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 
3990 052422 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
3991 052426 90$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
052426 104406 TRAP CSCLP1 
3992 052430 005000 CLR RO sSET FORMAT ORIVE DATA=0 
3993 052432 004737 062162 JSR PC, TLOWFMT sSETUP PACKET FOR WRITE FORMAT 
3994 052436 012704 062500 MOV @T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
3995 052442 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
3996 052446 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
3997 052452 FORCERROR 102$ s@@OFORCE ERROR IF FORCER=1 
3998 052466 103407 BCS 110$ ;BR IF CARRY SET (GOOD RETURN) 
3999 052470 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4000 052472 NEXT .ERRNO 
4001 052472 102$: ERRDF ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052472 104455 TRAP CSERDF 
052474 001446 -WORD 806 
052476 060632 -WORD T198SSR 
052500 012046 -WORD PKTSSR 
4002 052502 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
4003 052506 110$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
052506 104406 TRAP CSCLP1 
4004 3 Do a Write Subsystem Write Misc to Reset Tape Status F-FLOPS 
4005 052510 004737 062020 JSR PC, TLORSF IF sSETUP PKT FOR WRITE MISC Reset Tape Status F-FLOPS 
4006 052514 012704 062500 MOV eTi9PK2, R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4007 052520 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
4008 052524 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4009 052530 FORCERROR 122$ 3 BOF ORCE is t FORCER=1 
4010 052544 103407 BCS 130$ ;BR IF CARRY SET (GOOD RETURN) 
4011 052546 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4012 052550 NEXT. ERRNO 
4013 052550 122$: ERRDF ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052550 104455 TRAP CSEROF 
052552 001447 «WORD 807 
052554 060300 -WORD 1T192SSR 
052556 012046 -WORD PKTSSR 
4014 052560 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
4015 052564 130$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
052564 104406 TRAP CSCLP1 
4016 : Do a Write Subsystem READ STATUS 
4017 ; If A Tape Status 2 (ICER,IFMK,IHER) flip-flop 
4018 ; gnals NOT=0 Then Print Error 
4019 052566 004737 062000 JSR. PC,T19SRD ;SETUP PACKET FOR READ STATUS 
4020 052572 012704 062500 MOV eTi9PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4021 052576 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
4022 052602 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4023 052606 FORCERROR 132$ ;@@OFORCE ERROR IF FORCER=1 
4024 052622 103407 BCcS 140$ ;BR IF CARRY SET (GOOD RETURN) 
4025 052624 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4026 052626 NEXT .ERRNO 
4027 052626 132$: ERROF ERRNO,T193SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052626 104455 TRAP CSERDF 
052630 001450 «WORD 808 
052632 060344 WORD T193SSR 
052634 012046 -WORD PKTSSR 
4028 052636 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
4029 052642 140$; CKLOOP ;LOOP ON ERROR, IF FLAG eT. 
052642 104406 CSCLPL 


4030 052644 004737 062240 JSR PC, TI9SETEXP ;SET WORDS 0-7 EXPD=RECV CNOT TESTING) 


TSVS - HAROWARE TESTS 


TEST 8: SUBTEST 


053014 


053074 


053076 
053102 


1 
1: LOOPBACK CONTR 


012701 
012702 


K14 


MACRO M1113 06-FEB-84 17:14 SEQ 179 
OL SIGNAL fest 
060102 MOV @T1L9SEXSTA,R1L sGET EXPECTED READ STATUS 
062372 MOV @T19BFSTA,R2 ;GET RECV READ STATUS 
MOV CR2),CR1) ;SET EXPD WORD #8 = RECV TEMP 
002000 BIC #S1.ICER,(R1) ;SET EXPD ICER =0 
001000 BIC #S1.IFMK,CR1) sSET EXPD IFMK =0 
000400 BIC #S1.IHER,(R1) sSET EXPD IHER =0 
000002 000002 MOV 2(R2),2CR1) ;SET EXPD WORD #9 = RECV (NOT TESTING) 
CLR RO ;HIGH RECV ADORESS FOR CKMSG2 
062352 MOV @T19BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
060062 MOV @T19EXP ,R2 3EXPD ADDRESS 
000024 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 152$,NOTSSR 3880 
BCS 160$ 3;BR IF YES 
NEXT .ERRNO 
152$: ERRHRD ERRNO, 1T197CMP ,MSGLOOP ;REPORT ERROR 
TRAP CSERHRD 
WORD 809 
WORD T197CMP 
-WORD MSGLOOP 
160$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPl 
; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
060014 CLR T19PREV sINIT 1-0 TRANSITION FLAG 
002752 MOV TSTBLK,R3 ;GET FIRST PATTERN ADDRESS 
200$: MOV (R3)+,RO ;GET A TEST PATTERN 
002316 MOV R3,TSTPTR ;SAVE POINTER INTO TSTBLK 
000200 BIC ow .IFAD,RO sIFAD MUST ALWAYS =0 
000100 BIC owc . IOTAD,RO ;ITADO MUST ALWAYS =0 
000040 BIC @wC.I1TAD,RO sITAD1 MUST ALWAYS =0 
002312 MOV RO,DATA ;SET DATA PATTERN 
; Do Write Subsystem Write Control to Drive loopback signals group 1. 
3880 CALL T19CNVT TO SETUP WRITE CONTROL PATTERN 
002312 MOV DATA,RO ;GET TEST PATTERN 
062264 JSR PC, TISCNVT. sCONVERT PATTERN TO CONTROL DRIVE MASK 
:RO CONTAINS WRITE CONTROL DATA HERE 
062142 JSR PC, T1L9WCTL ;SETUP PACKET FOR WRITE CONTROL 
062500 MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC,CHKTSSR ;sWAIT FOR SSR TO SET 
FORCERROR 212$ s@@OFORCE ERROR IF li 
BCS 220$ ;BR IF CARRY SET (GOOD RETURN 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO ; 
212s: ERROF  ERRNO,T197SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDOF 
-WORD 810 
. WORD T197SSR 
.WORD PKTSSR 
002222 INC FATFLG ;SET FATAL ERROR FLAG 
220% CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPL 
3 Do Write Subsystem Write Format to Drive loopback signals group 2. 
;@aD CALL Ti9CNVT TO SETUP WRITE CONTROL PATTERN 
002312 MOV DATA,RO ;GET TEST PATTERN 
062264 JSR PC, TLSCNVT ;CONVERT PATTERN TO FORMAT DRIVE MASK 


TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


SEQ 180 


4078 053106 000300 SWAR RO sWRITE FORMAT DATA RETURNED IN HIGH BYTE 
4079 053110 004737 062162 JSR PC, TLOWFMT sSETUP PACKET FOR WRITE FORMAT 
4080 053114 012704 062500 MOV @T1OPK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4081 053120 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
4082 053124 004737 016336 PC,CHKTSSR sWAIT FOR SSR TO SET 
4083 053130 FORCERROR 2328 s@@0FORCE ERROR IF FORCER=1 
4084 053144 103407 BCS 240 ;BR IF CARRY SET (GOOD RETURN) 
4085 053146 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4086 053150 NEXT .ERRNO 
4087 053150 232s: ERRDF  ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053150 104455 TRAP CSEROF 
053152 001453 -WORD 811 
053154 060632 -WORD 1198SSR 
053156 012046 -WORD  PKTSSR 
4088 053160 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
4089 053164 2408: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
053164 104406 TRAP CsCLP1 


4090 3 Do a Write no READ STATUS 

4091 053166 004737 062000 JSR PC,T ;SETUP PACKET FOR READ STATUS 

4092 053172 012704 062500 MOV @Ti9PK2, RG ;GET WRITE SUBSYSTEM COMMAND PACKET 

4093 053176 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

4094 053202 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

4095 053206 FORCERROR 252$ ;Q@@OFORCE ERROR IF FORCER=1 

4096 053222 103407 6cs 260$ 3;8R IF CARRY SET (GOOD RETURN) 

4097 053224 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4098 053226 NEXT .ERRNO 

4099 053226 2528: ERRDF ERRNO, 1T193SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053226 104455 TRAP CSERDF 
053230 001454 . WORD 812 
053232 060344 . WORD T193SSR 
053234 012046 . WORD PKTSSR 

4100 053236 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4101 053242 260$ CKLOOP ;LOOP ON ERROR, IF FLAG SET 
053242 104406 TRAP CSCLP1 

4102 ; If loopback data NOT= data sent Then Print Error 

4103 053244 004737 062240 JSR PC, T19SETEXP ;SET WORDS O-7 EXPD=RECV (NOT TESTING) 

4104 053250 012701 060102 MOV @T19EXSTA,R1 ;GET EXPECTED READ STATUS 

4105 053254 012702 062372 MOV @T19BFSTA,R2 ;GET RECV READ STATUS 

4106 053260 013711 002312 MOV DATA,CR1) 3;SET EXPD WORD #8 TO TEST DATA FIRST 

4107 053264 013700 060014 MOV T19PREV,RO ;GET PREVIOUS DATA PATTERN 

4108 053270 013703 002312 MOV DATA,R3 ;GET CURRENT PATTERN 

4109 053274 012704 000400 MOV #51. IHER,R4 ;SETUP IHER EXPECTED 

4110 053300 040411 BIC R4,(R1) ;SET EXPD IHER =0 

4111 053302 030400 BIT R4,RO sPREVIOUS =1? 

4112 053304 001403 BEQ 275% ;68R IF NO 

4113 053306 030403 BIT R4,R3 ;CURRENT 20? 

4114 053310 001001 BNE 275$ ;68R IF NO 

4115 053312 050411 BIS R4,(R1) 3;SET EXPD IHER =1 

4116 053314 012704 001000 2758: MOV #S1.IFMK,R4 ;SETUP IFMK EXPECTED 

4117 053320 040411 BIC R4,(R1) ;SET EXPD IFMK +=0 

4118 053322 030400 BIT R4,RO sPREVIOUS =1? 

4119 053324 001403 BEQ 280$ ;68R IF NO 

4120 053326 030403 BIT R4,R3 ;CURRENT =0? 

4121 053330 001001 BNE 280$ 3;BR IF NO 

4122 053332 050411 BIS R4,(R1) ;SET EXPD IFMK =1 

4123 053334 012704 002000 280%: MOV Si. ICER,R4 ;SETUP ICER EXPECTED 

4124 053340 040411 BIC R4,(R1) ;SET EXPD ICER =O 


Tay? - HARDWAR 


SUBTE 


053342 
053344 


053552 
053554 
053560 
053560 


053562 
053566 


Sr 
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"7? PoopBagk CONTROL SEGNAL fest” ** 


062020 
062500 


000000 
016336 


002222 


062000 
062500 


0c0002 


285s: 
: 


288%: 


2908: 


302$: 


322%: 


BIT R4,RO 
BEQ 285$ 
BIT R4,R3 
BNE 285$ 
BIS R4,(R1) 
MOV CR1),RO 


If previous LIDENT= 1 and current 
MOV #S1.IIDENT,R4 


BIS RO 

BIT R4, TLOPREV 
BEQ 288% 

BIT R4,R3 

BEQ 288$ 

BIC R4,RO 


oR 
BIS #S1.I2RES,RO 
BIS #S1.I11RES,RO 


BIC #S1.PARERR,RO 
BIT #S1.PARERR, (R2) 
BEQ 290% 

BIS @S1.PARERR,RO 


MOV RO,CR1) 
MOV + eames 


MOV @T19BFR,R1 
MOV @T19EXP ,R2 
»CKMSG2 
4 gece as 302$ ,NOTSSR 


8 
NEXT .ERRNO 
ERRHRD ERRNO, T198CMP ,MSGLOOP 


CKLOOP 


SEQ 181 


sPREVIOUS #17? 
IF NO 


sCURRENT =0? 
368R IF NO 
3SET EXPD ICER =1 
3;GET EXPD WORD 
is IIDENT=1 then EXPD= 0 else 1 
3; LIDENT 
sASSUME EXPD=1 
ee IIDENT=1? 
;68R IF NO 
3IS CURRENT IIDENT=1? 
3B8R IF NO 
3SET EXPD=0 
;IRESV2 EXPD ALWAYS=1 
;IRESV1 EXPD ALWAYS=1 
s IGNORE PARERR 
31S PARERR SET IN RECV? 
;68R IF NO 
3;SET IN EXPD 
;SETUP FINAL EXPD IN WORD #8 
;SET EXPD WORD #9 = RECV (NOT TESTING) 
sHIGH RECV ADDRESS FOR CKMSG2 
;LOW RECV ADDRESS FOR CKMSG2 
3EXPD ADDRESS 
;NUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


; 880 

;BR IF YES 

;REPORT ERROR 
TRAP CSERHRD 
. WORD 813 
WORD T198CMP 


“WOR 
;LOOP ON ERROR, IF FLAG SET 
TRAP  - C$CLP1 


Do a Write Subsystem Write Mise to Reset Tape Status F-FLOPS 


JSR PC, TLORSF IF 
MOV @T19PK2,R4 
MOV R4, TSOBCRS) 
JSR PC,CHKTSSR 
FORCERROR 3228 
< 330 

RO,R 
NEXT. ERRNO 


ERRDF ERRNO,T192SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Do a Write Subsystem READ STATUS 
JSR PC,T19SRD 
MOV #T19PK2,R4 


sSETUP PKT FOR WRITE MISC Reset STATUS 
;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@@O0FORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


7wORD  T192SSR 


-WORD PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


;SETUP PACKET FOR READ STATUS 
3GET WRITE SUBSYSTEM COMMAND PACKET 


Ts 
TE 


VS -_ HARDWARE TESTS 
ST 8: SUBTEST 1 
4172 053572 010465 
004737 


053744 


4200 053746 
053754 
053760 
053764 
053766 
4205 053772 


053772 
053772 
053772 


4209 053774 


013737 
013703 
020327 
103002 
000137 


104403 


005737 
001402 
004737 


1: POOPBACK CON 


000000 
016336 


002312 
002316 
003062 


052762 


002222 
017202 


TROL 


000002 


060014 


06 -FEB- 
SIGNAL 


3423: 


350$; 


362$: 


370$; 


400$: 


4605: 


N14 


7:14 

est 
MOV R4, TSDOBCRS) 
JSR PC,CHKTSSR 
FORCE 2s 
BCS 350 
MOV RO,R1 
NEXT .ERRNO 
ERRDOF ERRNO, T193SSR,PKTSSR 
INC FATFLG 
CKLOOP 
JSR PC, T19SETEXP 
MOV @T19EXSTA,R1 
MOV #T19BFSTA,R2 
MOV CR2),CR1) 
BIC #S1.ICER,(R1) 
BIC 9S1.IFMK,CR1) 
BIC @S1.IHER,(R1) 
MOV 2(R2),2(R1) 
CLR RO 
MOV #T19BFR,R1 
MOV @T19EXP Re 
MOV #20. ,R3 
JSR C.Cx 
FORCERROR 362$,NOTSSR 
bcs 
NEXT.ER 
ERRHRD ERRNO,T197CMP,MSGSTAT 
CKLOOP 
MOV DATA, T19PREV 
MOV TSTPTR,R3 
CMP R3,#TBLEND 
BHIS 400$ 
JMP 200$ 
ENDSUB 
TST aaae 
BEQ 460 
JSR PC, expRor 


SEQ 182 


sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@@DFORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 6815 
«WORD 1193SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
;GET EXPECTED READ STATUS 
;GET RECV READ STATUS 
sSET EXPD WORD #8 = RECV TEMP 
sSET EXPD ICER =0 
;SET EXPD IFMK =0 
;SET EXPD IHER =0 

sSET EXPD WORD #9 = RECV (NOT TESTING) 
SHIGH RECV ADDRESS FOR CKMSG2 

;LOW RECV ADDRESS FOR CKMSG2 

sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 

sEXPD EQUAL RECV? 

;980 

;BR IF YES 

;REPORT ERROR 

TRAP CSERHRO 

-WORD 816 

. WORD T197CMP 

-WORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 


;SETUP PREVIOUS DATA FOR EXPD CALC. 
sRESTORE CURRENT TSTBLK POINTER 
sEND OF TSTBLK? 

;BR IF YES 

;00 NEXT TSTBLK PATTERN 


s///111////7/7/ END SUBTEST 44S //////7/ 
L10067: 
TRAP CSESUB 
sANY FATAL ERRORS ? 


;BRANCH IF NCT 
;TRY TO OROP THE UNIT 


TSVS - HARDWARE TESTS 


TEST 8: SUBTEST 


4266 054060 
4267 054062 


MACRO M1 
1: LOOPBACK CON 


015774 


002222 
062330 
010662 


B15 
17:14 SEQ 183 


-SBTTL TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 


gee 
s TEST 6; SUBTEST 2: 


SUBTEST DESCRIPTION: 


This subtest verifies the Read/Write date loopback path. 
The Read/Write data signals are IR<7:0> and Iw<7:0> 
respectively. 


TEST STEPS; 


REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 


Write to TSSR register to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Features Hardware Switch Clear then: 

Do. Write ese Write Miscellaneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 

@ WRITE NPR to set loopback and tape direction OUT 

@ WRITE FIFO with byte count equal to 1 and Tape direction OuT 
e@ READ FIFO with tease direction OUT to load tape cut write latch 
@ WRITE NPP *> set loopback and tape direction IN 

@ WRITE fF {FO with byte count equal to 1 and Tape direction IN 
to strove loopback data into FIFO. 

e@ REAC FIFO with tape direction IN to read data 

Dete read from FIFO NOT= to Date sent Tren Print Error 

Do e Write Subsystem READ STATUS 

If Inpue Ready NOT#1 Tnen Print Error 

If Output Ready NOT=0 Tnen Print Error 

If Dat» In Miss NOT*O  Thnen Print Error 


ENO 


BGNSUB 3///////////¢ BEGIN SUBTEST 44/4//////7/ 
T 


2: 
TRAP Cs8SuU8 
Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

BCS 10% s8R IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO, SFIERR, SF IMSG sDEVICE FATAL DURING INIT 
TRAP CSEROF 
«WORD 816 


-WORD  SFIERR 
-WORD SF IMSG 
Do WRITE mee to check for Extended Features Switch 
L 


CLR FA sCLEAR FATAL ERROR FLAG 

MOV OTLOPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR PC,.WRICHR 3:00 WRITE CHARACTERISTICS COMMANDO 
F ORCERROR les sQBOFORCE ERROR IF FORCER=1 
BCS 15% sBR IF CARRY SET (GOOD RETURN) 


MOV RO,R1 sSAVE CONTENTS OF TSSR 


sb 


- HA T 3 
TEXF “ot*BAWOBE "SS "Soop HRERRPAS Sar PE EER ARC. 7e89 SEG 104 

4268 054064 NEXT ,ERRNO 

4269 054064 128: ERRDF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054064 104455 TRAP CSERDF 
054066 001461 -WORD 817 
054070 060243 . WORD T19SSR 
054072 012046 -WORD PKTCSSR 

4270 05407 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

4271 054100 15%; CKLOOP 3LOOP ON ERROR, IF FLAG sr 
054100 104406 TRAP CSCLP1 

4272 3 If Extended Features Hardware Switch Clear then: 

427 3 Do Write SSorvgeee Write Miscellaneous to Set Extended Features. 

4274 054102 012701 062352 MOV OT1LOBFR,R1 sMESSAGE BUFFER ADDRESS 

4275 054106 032761 000200 000012 BIT @x2. EXTF, xST2CR1) }EXTENDED FEATURES SWITCH SET? 

4276 054114 001026 BNE 30% 3BR IF YES 

4277 054116 004737 062202 JSR PC, T1I9SEXT sSETUP PACKET FOR WRITE MISC INVERT 

4278 054122 012704 062500 MOV eT19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

4279 054126 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

4280 054132 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

4281 054136 FORKCERROR 228 sQ8@DFORCE ERROR IF FORCER=1 

4282 054152 103407 BCS 308 ;6R IF CARRY SET (GOOD RETURN) 

4283 054154 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4284 054156 NEXT. ERRNO 

4285 054156 228: ERROF ERRNO, T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054156 104455 TRAP CSEROF 
054160 001462 -WORD 818 
054162 06030U -WORD 1192SSR 
054164 012046 WORD PKTSSR 

4286 054166 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

4287 054172 303: CKLOOP sLOOP ON ERROR, IF FLAG SET 
054172 104406 TRAP CSCLP1 

4288 3 Do WRITE CHARACTERISTICS to select reserved unit 7 

4289 054174 012704 062330 MOV OTLISPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 

4290 054200 004737 010662 JSR PC,.WRICHR 300 WRITE CHARACTERISTICS COMMAND 

4291 054204 FORCERROR 423 s@BOFORCE ERROR IF FORCER=1 

4292 054220 103407 BCS 50% 3;8R IF CARRY SET (GOOD RETURN) 

4293 054222 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 

4294 054224 NEXT .ERRNO 

4295 054224 42%: ERROF ERRNO, T19SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
054224 104455 TRAP CsEROF 
054226 001463 -WORD 819 
054230 060243 . WORD T1L9SSR 
054232 012046 . WORD PKTSSR 

4 054234 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4297 054240 508: CKLOOP sLOOP ON ERROR, IF FLAG SET 
054240 104406 TRA CSCLPl 

4298 

4299 

4300 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

4301 054242 012703 002752 MOV @TSTBLK,R3 3GET FIRST PATTERN ADDRESS 

4302 054246 012337 00231 MOV (R3)+,DATA 3GET A TEST PATTERN 

4303 054252 042737 177400 002312 BIC @¢C<377>,DATA sDATA IS BYTE 

4304 054260 010337 00231 MOV R3,TSTPTR sSETUP CURRENT TSTBLK POINTER 

4305 ; Do a WRITE NPR to set loopback and tape direction OUT 

4306 054264 012700 000100 MOV — OUT,RO 3SET TAPE OIRECTION OUT 

4307 054270 052700 000040 BIS ONP .LOOP ,RO 3;SET LOOPBACK 

4508 054274 004737 062042 JSR PC,TLOSNPR ;SETUP T19PK2 FOR WRITE NPR 

4309 054300 012704 062500 MOV OT19PK2,R4 :GET WRITE SUBSYSTEM COMMAND PACKET 


DLS 
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4310 054304 010465 000000 MOV R4,TSOBC(RS) sSET THE PACKET ADORESS TO EXECUTE 
4311 054310 004737 016336 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
4312 054314 FORCERROR 1028 i SBOFORCE ERROR IF — 1 
4313 054330 103407 6cs 105% 36R IF CARRY SET (GOOD RETURN 
4314 054332 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4315 054334 NEXT. ERRNO 
4316 054334 1028; ERROF ERRNO, 1194SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
054334 104455 TRAP CsERDF 
054336 001464 . WORD 820 
054340 060411 ~ WORD T194SSR 
054342 012046 ~ WORD PKTSSR 
4317 054344 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4318 054350 105$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
054350 104406 TRAP CSCLPl 
4319 : Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
4320 054352 012700 000001 MOV @1,R0 sWRITE 1 BYTE 
4321 054356 012701 002312 MOV @DATA,R1 sF IFO WRITE DATA ADDRESS 
4322 054362 004737 062106 JSR PC, T19WF IF :SETUP T19PK2 FOR WRITE FIFO 
4323 054366 012704 062500 MOV @T19PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
4324 054372 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
4325 054376 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
4326 054402 FORCERROR 107$ ;880F ORCE ERROR IF FORCER=1 
4327 054416 103407 6cS 110$ 36R IF CARRY SET (GOOD RETURN) 
4328 054420 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4329 054422 NEXT. ERRNO 
4330 054422 107%; ERRDOF ERRNO, T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054422 104455 TRAP CSEROF 
054424 001465 . WORD 821 
054426 060454 .WORD T195SSR 
054430 012046 . WORD PKTSSR 
4331 054432 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4332 054436 1108: CKLOOP :LOOP ON ERROR, IF FLAG SET 
054436 104406 TRAP CsCLPl 
4333 : Do ea READ FIFO with tape direction OUT to load tape out write latch 
4334 054440 012700 000001 MOV 1,R0 ;SET READ BYTE COUNT 
4335 054444 004737 062066 JSR PC, TLORF IF sSETUP T19PK2 FOR READ FIFO 
4336 054450 012704 062500 MOV @119PK2,R4 ;sGET WRITE SUBSYSTEM COMMAND PACKET 
4337 054454 010465 000000 MOV R4,TSOBC(RS) :SET THE PACKET ADDRESS TO EXECUTE 
4338 054460 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4339 054464 FORCERROR lees s@QDFORCE ERROR IF FORCER=1 
4340 054500 103407 BCcS 130$ 3;BR IF CARRY SET (GOOD RETURN) 
4341 054502 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4342 054504 NEXT .ERRNO 
4343 054504 1228: ERROF ERRNO, T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054504 104455 TRAP CSERDF 
054506 001466 WORD 822 
054510 060520 . WORD T196SSR 
054512 012046 . WORD PKTSSR 
4344 054514 005237 002222 INC FATFLG 3;SET FATAL ERROR FLAG 
4345 054520 1308: CKLOOP sLOOP ON ERROR, IF FLAG SET 
054520 104406 TRAP CSCLPl 
4346 3 Do a WRITE NPR to set loopback and tape direction IN 
4347 054522 005000 CLR RO ;CLR NP.OUT TO SET TAPE DIRECTION IN 
4348 054524 052700 000040 BIS ONP .LOOP ,RO :SET LOOPBACK 
4349 054530 004737 062042 JSR PC, T19SNPR ;SETUP T19PK2 FOR WRITE NPR 
4350 054534 012704 062500 MOV OT1LOPK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 


*351 054540 010465 000000 MOV R4, TSOBCRS ) sSET THE PACKET ADDRESS TO EXECUTE 
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004737 


yy Sa a 1 


016336 


002222 


000001 
002312 
062106 
062500 


000000 
016336 


002222 


000001 
062066 
062500 


000000 
016336 


002222 


062240 
060102 
062372 
002312 
000002 000002 


3. _06-FEB -84 
WRITE SIGNALS 


1428; 


162%; 


182$: 


1908: 


3! 


5 


SEQ 186 


sWAIT FOR SSR TO SET 

s@BOFORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


«WORD 6823 
«WORD 1194SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do a WRITE FIFO with byte count equal to 1 and Tape direction IN 


17:14 
teat 
JSR PC,CHKTSSR 
FORCERROR 142% 
BCS oso 
MOV RO,R1 
NEXT, ERRNO 
ERROF  ERRNO,T194SSR,PKTSSR 
INC FATFLG 
CKLOOP 
MOV #1,RO 
MOV @DATA,R1 
JSR PC, TLOWFIF 
MOV @T19PK2,R4 
MOV R4,TSDB(RS) 
JSR PC,CHKTSSR 
FORCERROR 162$ 
Bcs 170 
MOV RO,R1 
NEXT. ERRNO 
ERROF ERRNO,T195SSR,PKTSSR 
INC FATFLG 
CKLOOP 


sWRITE 1 BYTE 
sFIFO WRITE DATA ADDRESS 
sSETUP T19PK2 FOR WRITE FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO £XECUTE 
sWAIT agp SSR TO SET 

@AOFORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF T5SR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


«WORD 6824 
-WORD T195SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do a READ FIFO with tape direction IN to read data 


MOV 

JSR PC, TLORF IF 
MOV @T19PK2,R4 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 
FORCERROR 182% 
BCS 190$ 

MOV RO,R1 
NEXT . ERRNO 

ERRDF ERRNO,T196SSR,PKTSSR 
INC FATFLG 
CKLOOP 

JSR PC, TI9SETEXP 
MOV OTLIEXSTA,R1 
MOV OTL9OBFSTA,R2 
MOV DATA,(R1) 
MOV 2(R2),2(R1) 
CLR RO 


If Data — FIFO NOT= to Data sent Then Print Error 
® 


sSET READ BYTE COUNT 
sSETUP T19PK2 FOR READ FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s;GQ0FORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


"WORD  T196SSR 


-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP Csci Pi 
sSET WORDS O-7 EXPD=RECV (NOT TESTING) 
sGET EXPECTED READ STATUS 
:GET RECV READ STATUS 
sSET EXPD WORD 08 = DATA 
sSET EXPD WORD 09 = RECV (NOT TESTING) 
sMIGH RECV ADDRESS FOR CKMSG2 


TS 
TE 


Wn< 
=v 


4435 


055006 
055012 
055016 


055230 
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012701 
012702 
012703 
004737 


103404 
104456 
001472 
061460 
013742 


104406 


061220 
012350 


104406 


BACK RE 


062000 
062500 
000000 
016336 


Ab yur 


F eon 


1 
“oFB Rt ted} 
MOV OT1LOBFR, RI 
MOV @T19EXP ,R2 
MOV 018. ,R% 
JSR PC, CKMSG2 
FORCERROR 202% ,NOTSSR 
BCS 2108 
NEXT. ERRNO 
202$: ERRHRD ERRNO, T199CMP,MSGSUB 


2108: 


2123: 


2208: 


2328: 


2408: 


CKLOOP 


Do a Write Subsystem READ STATUS 

Then Print Error 
Then Print Error 
Then Print Error 


If Input Ready NOT=-1 
If Output Ready NOT=0 
If Data In Miss NOT=0 


JSR PC, T19SRO 

MOV @T19PK2,R4 

MOV R4, TSOBCRS) 

JSR PC,.CHKTSSR 

FORCERROR 212s 

BCS 220% 

MOV RO,R1 

NEXT. 

ERROF ERRNO, T193SSR,PKTSSR 
FATFLG 

CKLOOP 

JSR PC, TI9SETEXP 

MOV @TLIEXSTA,R1 

MOV @TLOBFSTA,R2 

MOV CR2)+,CR1)> 

MOV CR2),(R1) 

BIS @S2.INRDY,(R1) 

BIC @S2.OUTRDY,(R1) 

BIC @S2.0IM,(R1) 

CLR RO 

MOV OTL9SBFR,R1 

MOV OTLIEXP ,R2 

MOV #20. ,R3 

JSR PC ,CKMSG2 

FORCERROR 232$,NOTSSR 

BCS 240 

NEXT ,ERRNO 


ERRHRD ERRNO, T196CMP ,MSGSTAT 


CKLOOP 


SEQ 187 


sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 

; 

sBR IF YES 


sREPORT ERROR 


;LOOP ON ERROR, IF FLAG SET 
TRAP 


sSETUP PACKET FOR READ STATUS 


CS$CLP1 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 


sWAIT tg SSR TO SET 


@a0FORCE ERROR i 1 


;BR IF CARRY SET (GOOD RET 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


. WORD 
- WORD 
WORD 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG Le 


WORDS 0-7 EXPD=RECV (NOT 
EXPECTED READ STATUS 
RECV READ STATUS 

EXPD WORD 08 = RECV TEMP 
EXPD WORD @9 = RECV TEMP 
EXP INPUT READY= 1 

EXP OUTPUT READY= 0 

EXP DATA IN MISS = 0 
sH#1GM RECV ADDRESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
FEXPD EQUAL RECV? 


:380 
:BR IF YES 
sREPORT ERROR 


oW 
;LOOP ON ERROR, IF FLAG SET 
TRAP 


T193SSR 
PKTSSR 


CsCLP1 
TESTING) 


CSERHRD 
828 

T296CMP 
MSGSTAT 


CsCLPi 


tes? ‘8’ 


4436 


4488 
4489 


HARDWARE 
SUBTEST 


0SS232 


055274 


055274 
055274 


TESTS 


ACRO_M 


: PoopBA K RE 


013703 
020327 
103002 
000137 


104403 


005737 
001402 
004737 


002316 
003062 


054246 


002222 
017202 


Ab tnx f8 “SEBNRC sf 


255%: 


2608; 


GL5 


ga? SEQ 188 
FORCEXIT 2553 880 
MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 
CMP R3,TBLEND sEND OF TSTBLK? 
BHIS 255% ;68R IF YES 
JMP 100$ :00 ANOTHER TSTBLK PATTERN 
ENDSUB 37///4/7///7/7/7 END SUBTEST /S////S////7/ 
10070: 
TRAP CSsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 260$ sBRANCH IF NOT 
JSR PC, CKOROP sTRY TO DROP THE UNIT 


-SBTTL TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 


se 
; TEST 8: SUBTEST 3: 


or oe @F GF Ge Ge GF GF GF Ge Ge SF Ss GF Gs Ge os Ge Ge os GF Gs SS Gs SS Gs Ge OF os oF oF 


SUBTEST DESCRIPTION: 


This subtest verifies the Write Strobe loopback path 
can strobe date from the FIFO to the Data lines. 

The signal IRESV3 drives IWSTR (write strobe) to write 
data from the FIFO to the tape data out latch. 


TEST STEPS: 


ys ALL TEST PATTERNS IN TSTBLK TABLE 


Write to TSSR cee: ister to soft initialize tne controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended AG eaten Hardware Switch Clear then: 

Do Write S mere stem Write Miscellaneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
e Write Subsystem WRITE _— to set tape direction out and Loopback 
e WRITE NPR to set loopback and tape direction OUT 
e@ WRITE FORMAT to set TRESVSs >> IWSTR = 1 
ea WRITE FIFO with byte count equal to 1 and Tape direction OUT 
a WRITE FORMAT to set IRESV3==>IWSTR * 0 to load write data latch 
@ WRITE FORMAT to set IRESV3==>IWSTR = 1 
e WRITE NPR to set loopback and tape direction IN 
ea WRITE FIFO with byte count equal to 1 and Tape direction IN 
© strobe loopback data into FIFO. 
ea READ FIFO with tape direction IN to read data 
Date read from FIFO NOT= to Data sent Then Print Error 


t 


3S Sooegegn 


END 


BGNSUB 377////////// BEGIN SUBTEST /4//// 
T8.3: 


HS 
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055274 104402 TRAP C$BSuUB 

4490 3 Write to TSSR register to soft initialize the controller 

4491 055276 S$: 

4492 055276 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO + oly INITIALIZE 

4493 055302 103405 BCS 10$ ;68R IF SOFT INIT OKA 

4494 055304 010001 MOV RO,R1L sSAVE CONTENTS OF TSSR 

4495 055306 ERROF ERRNO, SF IERR, SF IMSG SDEVICE FATAL DURING INIT ~ 
055306 104455 TRAP CSERODF 
055310 001474 . WORD 828 
055312 003652 . WORD SFIERR 
055314 012034 . WORD SF IMSG 

4496 3 Do WRITE 9 0 aarti to check for Extended Features Switch 

4497 055316 005037 002222 10$: CLR ;CLEAR FATAL ERROR FLAG 

4498 055322 012704 062330 MOV OTIOPACKET, R4 ;GET THE ADDRESS OF COMMAND PACKET 

4499 055326 004737 010662 JSR PC ,WRTCHR ;00 WRITE CHARACTERISTICS COMMAND 

4500 055332 FORCERROR 12s @aOFORCE ERROR IF FORCER=1 

4501 055346 103407 BCS 15$ ;8R IF CARRY SET (GOOD RETURN) 

4502 055350 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4503 055352 NEXT. ERRNO 

4504 055352 12$: ERROF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055352 104455 TRAP CSEROF 
055354 001475 . WORD 829 
055356 060243 . WORD T19SSR 
055360 012046 .WORD PKTSSR 

4505 055362 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

4506 055366 15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
055366 104406 TRAP CSCLPL 

4507 3 If Extended Features Hardware Switch Clear then: 

4508 3 Do Write peevgce= Write Miscellaneous to Set Extended Features. 

4509 055370 012701 062352 MOV OT19BFR,R sMESSAGE BUFFER ADD=<S 

4510 055374 032761 000200 000012 BIT @Xe2. EXTF, XST2CR1) EXTENDED FEATURES SWITCH SET? 

4511 055402 001026 BNE 30$ ;8R IF YES 

4512 055404 004737 062202 JSR PC, T1L9OSEXT ;SETUP PACKET FOR WRITE MISC INVERT 

4513 055410 012704 062500 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4514 055414 010465 000000 MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

4515 055420 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

4516 055424 FORCERROR 22s s@@0FORCE ERROR IF FORCER=1 

4517 055440 103407 BcSs 30$ ;8R IF CARRY SET (GOOD RETURN) 

4518 055442 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4519 055444 NEXT. ERRNO 

4520 055444 22s: ERROF ERRNO, T192SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
055444 104455 TRAP CSERDOF 
055446 001476 -WORD 830 
055450 060300 . WORD T192SSR 
055452 012046 .WORD PKTSSR 

4521 055454 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4522 055460 30$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
055460 104406 TRAP CSCLP1 

4523 ; Do WRITE CHARACTERISTICS to select reserved unit 7 

4524 055462 012704 062330 MOV @TLOPACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 

4525 055466 004737 010662 JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

4526 055472 FORCERROR 42$ s@@OFORCE ERROR IF FORCER=1 

4527 055506 103407 6cs 50$ ;8R IF CARRY SE’ (GOOD RETURN) 

4528 055510 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4529 055512 NEXT. ERRNO 

4530 055512 42%: ERRDF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 


055512 104455 TRAP CSEROF 


I15 
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TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 

055514 001477 . WORD 631 
055516 0602435 . WORD T19SSR 
055520 012046 ~ WORD PKTSSR 

4531 055522 v05237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4532 055526 50$: CKLOOP sLOOP ON ERROR, IF FLAG SET 

4333 055526 104406 TRAP CSCLP1 

4534 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

4535 055530 012703 002752 MOV @TSTBLK,R3 ;GET FIRST PATTERN ADDRESS 

4536 055534 012337 002312 100$: MOV (R3)+,DATA ;GET A TEST PATTERN 

4537 055540 042737 177400 002312 BIC @tC<377>,DATA sDATA IS BYTE 

4538 055546 010337 002316 MOV R3,TSTPTR ;SETUP CURRENT TSTBLK POINTER 

4539 ; Do a WRITE NPR to set loopback and tape direction OUT 

4540 055552 012700 000100 MOV @NP .OUT ,RO ;SET TAPE DIRECTION OUT 

4541 055556 052700 000040 BIS @NP .LOOP ,RO :;SET LOOPBACK 

4542 055562 004737 062042 JSR PC, T1I9SSNPR ;SETUP T19PK2 FOR WRITE NPR 

4543 055566 012704 062500 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4544 055572 010465 000000 MOV R4,TSOBCRS) 3;SET THE PACKET ADDRESS TO EXECUTE 

4545 055576 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

4546 055602 FORCERROR 102$ s;Q@8CFORCE ERROR IF FORCER=1 

4547 055616 103407 BCS 105$ ;B8R IF CARRY SET (GOOD RETURN) 

4548 055620 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4549 055622 NEXT. ERRNO 

4550 055622 102$: ERROF ERRNO, T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
055622 104455 TRAP CsEROF 
055624 001500 .WORD 832 
055626 060411 .WORD T194SSR 
055630 012046 .WORD PKTSSR 

4551 055632 005237 002222 INC FATFLG 3;SET FATAL ERROR FLAG 

4552 055636 105$: CKLOOP :LOOP ON ERROR, IF FLAG SET 
055636 104406 TRAP CSCLP1 

4553 ; Do ea WRITE FORMAT to set IRESV3==>IWSTR = 1 

4554 055640 012700 000002 MOV owF .I3RES,RO 3; IRESV3==>IWSTR=1 

4555 055644 004737 062162 JSR PC, TISWFMT ;SETUP TOPK2 FOR WRITE FORMAT 

4556 055650 012704 062500 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4557 055654 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

4558 055660 004737 016336 JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

4559 055664 FORCERROR 112$ sQ@Q@OFORCE ERROR IF FORCER=1 

4560 055700 103407 BCS 120% 3;8R IF CARRY SET (GOOD RETURN) 

4561 055702 010001 MOV RO,R1 s;SAVE CONTENTS OF TSSR 

4562 055704 NEXT. ERRNO 

4563 055704 112$: ERROF ERRNO, T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055704 104455 TRAP CSERDOF 
055706 001501 .WORD 833 
055710 060632 . WORD T198SSR 
055712 012046 ~ WORD PKTSSR 

4564 055714 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4565 055720 1208: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
055720 104406 TRAP CSsCLP1 

4566 ; Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 

4567 055722 012700 000001 MOV #1,RO0 ;WRITE 1 BYTE 

4568 055726 012701 002312 MOV @DATA,R1 sFIFO WRITE DATA ADDRESS 

4569 055732 004737 062106 JSR PC, T19OWF IF ;SETUP T19PK2 FOR WRITE FIFO 

4570 055736 012704 062500 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4571 055742 010465 000000 MOV R4, TSOBCRS) 3;SET THE PACKET ADDRESS TO EXECUTE 

4572 055746 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 


4573 055752 FORCERROR 132$ ;Q@Q0FORCE ERROR IF FORCER=1 


TSVS -_ HARDWARE TESTS 


TEST 8: SUBTEST 3: 


4574 
4575 
4576 
4577 


055766 


103407 


MACRO M1113 


002222 


062162 
062500 
000000 


016336 


002222 


000002 
062162 
062500 


000000 
016336 


002222 


000040 
062042 
062500 
000000 


016336 


LOOPBACK WRITE STROBE TEST 


132$: 


J15 


06 -FEB-84 17:14 SEQ 191 
BCS 140$ :BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, *195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 834 


152$: 


172%: 


-WORD T195SSR 


«WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CsCLP1 
oe e WRITE FORMAT to set IRESV3==>IWSTR = 0 
CLR RO sSET IRESV3==>IWSTR=0 


JSR PC, TISWFMT sSETUP TOPK2 FOR WRITE FORMAT 

MOV 0T197K2,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 152¢ ;@@OFORCE ERROR IF FORCER=1 

BcS 160$ ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 s;SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO,T198SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 

: TRAP CSERDF 

-WORD 835 
-WORD 1T198SSR 
-WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 

Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 

MOV @wF .ISRES,RO ; IRESV3*=>IWSTR=1 

JSR PC, TLOWFMT sSETUP TOPK2 FOR WRITE FORMAT 

MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 172$ ;@@OFORCE ERROR IF FORCER=1 

BcS 180% 3BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF  ERRNO,T198SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORDB 836 
-WORD 1198SSR 
-WORD  PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
Do ea WRITE NPR to set loopback and tape direction IN 


CLR RO ;CLR NP.OUT TO SET TAPE DIRECTION IN 
BIS ONP .LOOP ,RO sSET LOOPBACK 

JSR PC, T19SNPR sSETUP T19PK2 FOR WRITE NPR 

MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 1828 sQ@@OFORCE ERROR IF FORCER=1 


BCS 190$ ;BR IF CARRY SET (GOOD RETURN) 


TSVS - HARDWARE TESTS 


TEST 8: 


4616 
4617 
4618 


SUBTEST 3: 


010001 


012702 
012703 


LOOPBACK WRITE STROBE TEST 


K1i5 


MACRO M1113 06-FEB-84 17:14 SEQ 192 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 


002222 


000001 
062066 
062500 


000000 
016336 


000002 


182$: 


190$: 


202%: 


2228: 


ERRDF ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Do a WRITE FIFO with byte count equal to 1 and Tape direction IN 
MOV #1,RO ;sWRITE 1 BYTE 
sFIFO WRITE DATA ADDRESS 


JSR PC, TL9WFIF ;SETUP T19PK2 FOR WRITE FIFO 
MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 202$ ;QBOFORCE ERROR IF FORCER=1 
bcs 210$ ;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF  ERRNO,T195SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 838 
-WORD ‘ T195SSR 
A WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
Do a READ FIFO with tape direction IN to read data 
MOV #1,RO ;SET READ BYTE COUNT 
JSR PC, TLORFIF ;SETUP T19PK2 FOR READ FIFO 
MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR s;WAIT FOR SSR TO SET 
FORCERROR 222$ ;Q@@D0FORCE ERROR IF FORCER=1 
6cs 230% ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 3SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERROF ERRNO, 1T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
.WORD 839 
. WORD T196SSR 
.WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
If Data read from FIFO NOT= to Data sent Then Print Error 


JSR PC, TI9SETEXP sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
MOV @TL9IEXSTA,R1 ;GET EXPECTED READ STATUS 

MOV @T19BFSTA,R2] ;GET RECV READ STATUS 

MOV DATA,(R1) ;SET EXPD WORD #8 = DATA 

MOV 2(R2),2(R1) ;SET EXPD WORD #9 = RECV (NOT TESTING) 


CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV OT19BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 
MOV @T19EXP ,R2 sEXPD ADDRESS 

MOV #18. ,R3 sNUMBER OF BYTES TO COMPARE 


test “et 


4658 
4659 
4660 
4661 
4662 


SUBTEST 


Lis 


TESTS MACRO M 3 -FEB- 7:14 9 
> PoopBACK wRtte STROBE TEST - pete 
004737 011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 242$,NOTSSR ;8@a0 
103404 BCS 250% 3;8R IF YES 
NEXT. ERRNO 
2423: ERRHRD ERRNO, T19WSTR,MSGSUB ;REPORT ERROR 
104456 TRAP CSERHRD 
001510 . WORD 840 
061543 . WORD T1LOWSTR 
013742 . WORD MSGSUB 
2508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
FORCEXIT 255$ ;9a0 
013703 002316 MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 
020327 003062 CMP R3,@TBLEND sEND OF TSTBLK? 
103002 BHI* 255$ 3;BR IF YES 
000137 055534 — JMP 100$ 300 ANOTHER TSTBLK PATTERN 
ENDSUB 37//////////7 END SUBTEST /////////7/ 
L10071: 
104403 TRAP CsESUB 
005737 002222 TST FATFLG sANY FATAL ERRORS ? 
001402 BEQ 260$ ;BRANCH IF NOT 
004737 017202 ones JSR PC ,CKDROP ;TRY TO OROP THE UNIT 


-SBTTL TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 


see 
; TEST 8: SUBTEST 4: 


SUBTEST DESCRIPTION: 


This subtest verifies the Read Strobe loopback path 
can strobe the data from the Data lines to the FIFO. 
The signal IRESV4 drives IRSTR (read strobe) to write 
from the data lines to the FIFO. 


TEST STEPS: 


REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 


Write to TSSR eo to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Features Hardware Switch Clear then: 
Do Write Spovetes Write Miscellaneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 


Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
Do a WRITE NPR to set loopback and tape direction OUT 

Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 

Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 

Do ea READ FIFO with tape direction OUT to load tape out write latch 

Do a WRITE NPR to set loopback and tape direction IN 

Do a WRITE FORMAT to set IRESV4==>IRSTR = O to write loop data to FIFO 


TSVS - HARDWARE TESTS 
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4708 
4709 
4710 
4711 
4712 
4713 
4714 


4715 


032761 


012046 
005237 


104406 
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LOOPBACK READ STROBE TEST 


015774 


002222 
062330 
010662 


002222 


062352 
000200 


062202 
062500 


000000 
016336 


002222 


000012 


oo ef of oF oF oe 


3 
10$: 


12$: 


22s: 


M15 


06-FEB-84 17:14 


SEQ 194 


Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 
(to strobe loopback data into FIFO.) 
Do a READ FIFO with tape direction IN to read data 
If Data read from FIFO NOT= to Data sent Then Print Error 


END 
BGNSUB 


34////////7/// BEGIN SUBTEST ////////// 
T8.4: 
TRAP CsBSUB 


Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT 
BCS 10$ 


MOV RO,R1 
ERROF ERRNO,SFIERR,SFIMSG 


sWRITE TO TSSR TO SOFT INITIALIZE 
;BR IF SOFT INIT OKAY 
;SAVE CONTENTS OF TSSR 
sDEVICE FATAL DURING INIT 
TRAP CSEROF 


-WORD SFIMSG 


Do WRITE me to check for Extended Features Switch 


CLR FATFL 

MOV OT IOPACKET, R4 
JSR PC,WRTCHR 
FORCERROR 12$ 
BCS 15 

MOV RO,R1 

NEXT .ERRNO 


ERROF  ERRNO,T19SSR,PKTSSR 


INC FATFLG 
CKLOOP 


;CLEAR FATAL ERROR FLAG 

;GET THE ADDRESS OF COMMAND PACKET 

;D0 WRITE CHARACTERISTICS COMMAND 
;@QOFORCE ERROR IF FORCER=1 

;BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
CSEROF 


841 
-WORD T19SSR 
-WORD PKTSSR 
;SET FATAL ERROR FLAG 


;LOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 


If Extended Features Hardware Switch Clear then: 
Do Write Subsystem Write Miscellaneous to Set Extended Features. 


MOV @T19BFR,R1 


BIT @X2.EXTF,XST2CR1) 
BNE 30$ 
JSR PC, T19SEXT 
MOV @T19PK2,R4 
MOV R4, TSDBCRS) 
PC ,CHKTSSR 
FORCERROR 22s 
BCS 30 
MOV RO,R 
NEXT .ERRNO 


RR 
ERRDF ERRNO, T192SSR,PKTSSR 


INC FATFLG 
CKLOOP 


sMESSAGE BUFFER ADDRESS 
SEXTENDED FEATURES SWITCH SET? 
;BR IF YES 
sSETUP PACKET FOR WRITE MISC INVERT 
;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@@O0FORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


‘wORD 1192SSR 


-WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do WRITE CHARACTERISTICS to select reserved unit 7 


Ni5 


TSVS - HARDWARE Tests MACRO M1113 06-FEB- 704 17:14 SEQ 195 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TES 

4749 056732 012704 062330 MOV #T1LOPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

4750 056736 004737 010662 JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

4751 056742 FORCERROR 42$ ;Q@@DFORCE ERROR IF FORCER=1 

4752 056756 103407 BCS 50$ ;BR IF CARRY SET (GOOD RETURN) 

4753 056760 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4754 056762 NEXT. ERRNO 

4755 056762 42s: ERROF ERRNO, T19SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
056762 104455 TRAP CSEROF 
056764 001513 -WORD 843 
056766 060243 WORD T19SSR 
056770 012046 -WORD PKTSSR 

4756 056772 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4757 056776 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

eves 056776 104406 TRAP C$CLP1 

4759 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

4760 057000 012703 002752 MOV @TSTBLK ,R3 3;GET FIRST PATTERN ADDRESS 

4761 057004 012337 002312 100$: MOV CR3)+,DATA :GET A TEST PATTERN 

4762 057010 042737 177400 002312 BIC @tC<377>,DATA sDATA IS BYTE 

4763 057016 010337 002316 MOV R3,TSTPTR ;SETUP CURRENT TSTBLK POINTER 

4764 3 Do a WRITE NPR to set loopback and tape direction OUT 

4765 057022 012700 000100 MOV @NP .OUT ,RO ;SET TAPE DIRECTION OUT 

4766 057026 052700 000040 BIS #NP .LOOP ,RO ;SET LOOPBACK 

4767 057032 004737 062042 JSR PC, T1LOSNPR ;SETUP T19PK2 FOR WRITE NPR 

4768 057036 012704 062500 MOV #T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4769 057042 010465 000000 MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

4770 057046 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

4771 057052 FORCERROR 102$ sQ@@OFORCE ERROR IF FORCER=1 

4772 057066 103407 BCS 105$ ;BR IF CARRY SET (GOOD RETURN) 

4773 057070 010001 MOV RO,R1 «SAVE CONTENTS OF TSSR 

4774 057072 NEXT .ERRNO 

4775 057072 102$: ERRDF ERRNO, T194SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
057072 104455 TRAP CSERDF 
057074 001514 . WORD 844 
057076 060411 . WORD T194SSR 
057100 012046 . WORD PKTSSR 

4776 057102 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4777 057106 105$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
057106 104406 TRAP CSCLP1 

4778 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 

4779 057110 012700 000001 MOV @WF .IT4RES,RO ; IRESV4==>IRSTR=1 

4780 057114 004737 062162 JSR PC, TI9WFMT sSETUP TOPK2 FOR WRITE FORMAT 

4781 057120 012704 062500 MOV #T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4782 057124 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

4783 057130 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

4784 057134 FORCERROR 112$ ;@@DFORCE ERROR IF —s 

4785 057150 103407 BCS 120$ ;8R IF CARRY SET (GOOD RETURN 

4786 057152 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4787 057154 NEXT. ERRNO 

4788 057154 112$: ERROF ERRNO, T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
057154 104455 TRAP CSERDF 
057156 001515 -WORD 845 
057160 060632 .WORD T198SSR 
057162 012046 .WORD PKTSSR 

4789 057164 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4790 057170 1208; CKLOOP ;LOOP ON ERROR, IF FLAG SET 


057170 104406 TRAP CsCLP1 


TSVS - HARDWARE "ES" 


TEST 8: 


4791 
4792 
4793 
4794 
4795 


SUBTEST 4 


057172 


057424 
057424 


MACRO M1115 


002222 


000001 
062066 
062500 
000000 
016336 


002222 


002222 


B1l6 


06 FEB -84 17:14 
LOOPB4CK READ STROBE TEST 


132%: 


1528: 


1828: 


SEQ 196 


Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 


MOV #1,R0 

MOV @DATA,R1 

JSR Pl. TI9SWIF 
MOV @T1L9PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 

F URCERROR 1328 
6cS 14 

MOV RO,R1 

NEXT .ERRNO 


ERROF ERRNO, T195SSR,PKTSSR 


sWRITE 1 BYTE 
sFIFO WRITE DATA ADORESS 
sSETUP T19PK2 FOR WRITE FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@G0FORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP C SERDF 
«WORD 846 
«WORD T1195SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Do a READ FIFO with tape direction OUT to load tape out write latch 


INC FATFLG 

CKi_OOP 

MOV #1,R0 

JSR PC, TLORF IF 

MOV @T19PK2 ,R4 

MOV R4,TSOBC(RS) 
PC, CHKTSSR 

= eae 152% 

MOV RO,R1 


NEXT .ERRNO 
ERROF ERRNO, T196SSR,PKTSSR 


INC FATFLG 
CKLOOP 


sSET READ BYTE COUNT 
:SETUP TI9PK2 FOR READ FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@B0FORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 847 
-WORD T196SSR 
WORD PKTSSR 
sSET FATAL ERROR FLAG 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Do a — NPR to set loopback and tape direction IN 


CLR 
BIS ONP .LOOP ,RO 
JSR PC, T1OSNPR 


MOV @T1LIPK2 ,R4 
MOV R4, TSDOBCRS) 
JSR PC,.CHKTSSR 

F ORCERROR 162% 
BcS 190% 

MOV RO,R1 

NEXT .ERRNO 


ERROF ERRNO, T194SSR,PKTSSR 


INC FATFLG 
CKLOOP 


sCLR NP.OUT TO SET TAPE OIRECTION IN 
sSET LOOPBACK 
:SETUP T19PK2 FOR WRITE NPR 
sGET WRITE SUBSYSTEM COMMAND PACKET 
:SET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

sQQ0FORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


:SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSsCLPL 


Do a WRITE FORMAT to set IRESV4*=>IRSTR = O 


C16 


. 84 17:14 SEQ 197 
feXF “at BPBOBET ES lGopahOR Reh 2aokl FEB; 
SET IRESV4==>IRSTR+0 
4833 057426 005000 ae iSETUP TOPK2 FOR WRITE RORMAT 
4834 057430 004737 062162 - tions ns + WRITE SUBSYSTEM COMMAND PACKET 
ae3e 937480 o10s65 000000 MOV R4,TSDACRS) sSET THE PACKET ADDRESS TO EXECUTE 
AIT fae SSR T 
4837 057444 004737 016336 AO ag HHeeT ee venaronta annch oF FOncene! 
4838 057450 BCS 2108 iBR IF CARRY SET (GOOD RETURN) 
4839 057464 103407 MOV RO.R1 ;SAVE CONTENTS OF TSSR 
4940 057466 010001 + a. eae a 
4841 : FATAL SSR FAIL 
4842 057470 2028: ERROF ERRNO,T'96SSR,PKTSSR sDEVICE ote” enone 
057470 104455 ~WORD 349 
057472 001521 “WORD T198SSR 
057474 060632 “WORD PKTSSR 
057476 SET FATAL ERROR FLAG 
4843 057500 005237 002222 INC FATFLG . RROR, IF FLAG SET 
3844 057508 asa 2108; CKLOOP sLO0P ON ERROR aap CecLP1 
0 P 
FORMAT t IRESV4==>IRSTR = 1 
4845 ' = hy ~~ pa pe ; IRESV4==>IRSTR=1 
4846 057506 012700 000001 Pe! ef ee SETUP TOPK2 FOR WRITE FORMAT 
4847 057512 004737 062162 ym oiteiee ma GET WRITE SUBSYSTEM COMMAND PACKET 
2089 Osyeae o1cses 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO ExECUTE 
4 AIT FOR SSR TO S 
4850 057526 004737 016336 5 oA aig sWAT enor OneR ERROR IF FORTER=1 
Pitt Osyeae 103407 BCS 2308 ;8R IF CARRY SET (GOOD RE TURN) 
TEN 
4853 037550 010001 a on™ sSAVE CON a 
48 FATAL SSR FAILED TO 
4855 057552 2223: ERRDF ERRNO,T198SSR,PKTSSR ;DEVICE AL Re A 
057552 104455 .WORD 850 
057554 001522 “wORO T198SSR 
erase Seaet | seh es 
SET FATAL ERROR FLAG 
4856 057562 005237 002222 INC FATFLG é F FLAG SET 
4857 057566 2308: CKLOOP :LOOP ON ERROR, I a. CscLPi 
057566 104406 Do ea READ FIFO with tape direction IN to read data 
4858 ; MOV @1,RO 3SET READ BYTE COUNT 
4859 057570 012700 000001 fs MS SETUP T19PK2 FOR READ FIFO 
4860 057574 004737 062066 HOV OT19PK2.R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
oesk Gantet. ties ee MOV —sR4, TSDBCRS) iSET THE PACKET ADORESS TO EXECUTE 
4862 057604 010465 000000 nov oe natean tWAIT FOR SSR TO SET 
ant ee eee FORCERROR 2828 s@B8OF ORCE ERROR IF FORCER=1 
aees o7es0 103407 Bcs 290% or g CARRY SET CoeoR ose 
4866 057632 010001 ~ BY ona sSAVE CONTENTS OF 
486 , R FAILED TO SE 
4868 057634 262: ERROF ERRNO, T196SSR,PKTSSR SEVIS FATA. 39 TRAP CSEROF 
057634 104455 .WORD 851 
057636 001523 "wORD T196SSR 
cictek aisce "WORD PKTSSR 
05764 SET FATAL ERROR FLAG 
4869 057644 005237 002222 INC FATFLG : RROR, IF FLAG SET 
4870 037650 ae 2908: CKLOOP 3LO0P ON ERROR, I co csce1 
“ Ts t t Tren Print Error : 
2872 057652 004737 062240 : a pe TLOSeTEXP — eat e ote T MORDS 0-7 EXPO=RECV (NOT TESTING 
H T R 
4873 057656 012701 060102 MOV OTISEXSTA,R1 sGET EXPECTED RE 


4874 057662 012702 062372 MOV OTL9IBFSTA,R2 3GET RECV READ STATUS 


S -_HARDW 


TSV 
TEST 8: 


4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 


SUBTE 


057666 
057672 
057700 
057702 
057706 
057712 
057716 
057722 
057732 
057734 
057734 
057734 
057736 
057740 
057742 
057744 
057744 


057746 
057756 
057762 
057766 
057770 
057774 


057774 
057774 
057774 


057776 
060002 


060014 


060016 
060016 
060020 
060022 


r"§TBono ESR faoBE FEB 17:14 


013711 002312 MOV DATA,(R1) sSET EXPD WORD - = DATA 
016261 000002 000002 MOV 2(R2),2°R1) sSET EXPO WORD 09 = RECV CNOT TESTING) 
005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
012701 062352 MOV OT19BFR,R1 sLOW RECV — FOR CKMSG2 
012702 060062 MOV @T19EXP ,R2 sEXPD ADDRESS 
012703 000022 MOV #16. ,R3 sNUMBER OF BYTES TO COMPARE 
004737 011500 JSR PC.CKM sEXPD EQUAL RECV? 
FORCERROR 302% ,NOTSSR 3880 
103404 BCS 31 ;8R IF YES 
NEXT. ERRNO 
3028: ERRHRD ERRNO, TLORSTR,MSGSUB sREPORT ERROR 
104456 TRAP CSERHRD 
001524 «WORD 852 
061650 . WORD TLORSTR 
013742 -WORD M™SGSUB 
3108: CKLOOP sLOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
FORCEXIT 3558 ; 890 
013703 002316 MOV TSTPTR,RS sRESTORE CURRENT TSTBLK POINTER 
020327 003062 CMP R3,°TBLEND sEND OF TSTBLK? 
103002 BHIS 355$ 3;8R IF YES 
000137 057004 esse JMP 100$ 300 ANOTHER TSTBLK PATTERN 
ENDSUB s4/7///1//1/77 END SUBTEST ////4/////7 
L1007e2: 
104403 TRAP CsESUB 
005737 002222 TST FATFLG sANY FATAL ERRORS ? 
001402 =|. BEQ 360$ ;BRANCH IF NOT 
004737 017202 aaa JSR PC, CKDROP ;TRY TO DROP THE UNIT 
$: 
EXIT Tst s//ASSASLL/ EXIY TEST SASS SASS + 
104432 TRAP CSExIT 
002602 -WORD L10066-. 
3¢ 
sLOCAL STORAGE FOR THIS TEST 
i: 
000000 TLOPREV: -WORDB O sORIVE SIGNAL 1-0 TRANSITION FLAG 
3° 
; LOOPBACK ORIVE SIGNAL TABLE 
; THIS TABLE IS USED BY TI9CNVT TO SETUP 
; A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN, 
; 
; WRITE CONTROL SIGNALS ARE OF FORM WC.XXXx 
; WRITE FORMAT SIGNALS ARE OF FORM WF .XXXXx 
3: 
TL9BFCTL: sWRITE CONTROL DRIVE SIGNALS 
000001 wC.IGO 31GO**>IFPT DATA<O> 
000002 wWC.IFEN sIFEN-=>IF BY. DATA<1> 
000004 wC. IRWU ;IRWU*=>IRWO* DATA<«2> 


D16 


SEQ 198 


TSVS 
TEST 


4923 
4924 
4925 
4926 
4927 
4928 


- HARDWARE TESTS 
8: SUBTEST 4 


MACRO M11 


LOOPBACK READ 
377 

037 

360 

000 

124 162 
127 122 
127 122 
127 122 
127 122 
127 122 
127 122 
127 122 
127 122 
106 111 
122 145 
124 141 
122 145 
106 111 
124 141 
103 157 
122 145 
114 157 
114 157 


1 
S 


3 
T 


06 - 
ROBE 


FEB-84 17:14 
TEST 


T19MSK; 


T19EXP; 


TLOEXSTA: 
T19EXEND: 


-BLKB 


Pl6 


SEQ 199 

wc. IREW ; IREW*=>IDBY DATA<3> 

WF. IERASE «256. sIFAD==>ILOP DATA<4> 

WC .I1TAD sITAO1L=*>IONL DATA<5> 

WC. IOTAD sITADO==>IRDY DATA<6> 

wC. IFAD sIERASE==>ISPEED ““TA<7> 

WF. IEOIT#256. sIEODIT==>IHER DATA<8> 

WF. IWFMe256. s IWF Me => IF MK DATA<9> 

WF . IREVse2S6. 3; IREV==>ICER DATA<10> 

WF. IWRT*#256. sIWRT==:ITIDENT DATA<11> 

WF .THISPe256, “ s IHISP==>IEOT DATA<12> 

-WORD O sIRESV2 CUNUSED )DATA<13> 

-WORD O sIRESV1 CUNUSED )DATA<14> 

-WORD O sPARERR CUNTESTED)DATA<15> 
sMASK OF UNTESTED BITS IN READ STATUS BYTES 
sUNTESTED BITS ARE SET TO 1 

tC<000> sBYTE O MASK 

tC<340> ;BYTE 1 MASK (PARERR, IRESV2, IRESV1) 

tC<017> sBYTE 2 (TIMER A,TIMER B,UNDEF INED<1:0>) 
sMAKE IT EVEN 
;BEGIN EXPECTED DATA BUFFER 

0 sMESSAGE TYPE 

0 ;DATA FIELD LENGTH 

0 ;RBPCR 

f¢) 3XSTO 

0 , sXST1 

QO” :xST2 

(0) 3XST3 

re) sXST& CALWAYS PRESENT FOR WRITE SUB.) 

6 sEXPECTED READ STATUS AND WRITE FIFO DATA 


sEND EXPECTED DAJA BUFFER 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


TST19ID: 
T19SSR: .ASCIZ 
T192SSR: .ASCIZ 
T193SSR: .ASCIZ 
T194SSR: .ASCIZ 
T195SSR:. 
T196SSR:. 
T197SSR:. 


TLOWSTR:. 
TIORSTR:. 


-ASCIZ 
‘WRITE 
‘WRITE 
‘WRITE 
‘WRITE 
‘WRITE 
‘WRITE 


‘Transport Bus Interface Loopback ' 
CHARACTERISTICS Failed’ Pe 
SUBSYSTEM (Write Misc) Failed’ 
SUBSYSTEM (Read Status) Fai led’ 
SUBSYSTEM (Write Nor) Failed’ 
SUBSYSTEM (Write FIFO) Failed’ 
SUBSYSTEM (Read FIFO) Failed’ 
‘WRITE SUBSYSTEM (Write Control) Failed’ 
‘WRITE SUBSYSTEM (Write Format) Failed’ 
‘FIFO Status in WORD #9 Incorrect after Initialize’ 
‘Read FIFO Date not equal to Write FIFO , Data is in WORD 28’ 
‘Tape Status 2 (in #8) Incorrect after RESET TAPE’ 
‘Read FIFO Data not equal to Write FIFO Data’ 
‘FIFO Status Cin WORD 09) Incorrect after READ FIFO’ 
“Tape Status 2 (in WORD 08) Incorrect after RESET TAPE: 
‘Control Signal Loopback Date Error, Date is in WORD 8’ 
‘Read/Write Loopback Date Error, Data is in WORD 28' 
‘Loopback Date Error when strobed by Write strobe, Data is in WORD #8 
‘Loopback Data Error when strobed by Read Strobe, Data is in WORD 28 


TSVS - HARDWARE TESTS 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 


062066 
062066 


012701 


004737 
012701 
112721 
052700 
110011 
000207 


004737 


F1l6 


MACRO M1113 06-FEB-84 17:14 


062352 
000120 


061754 
062510 
000005 


061754 


;?¢ 
; CLEAR MESSAGE BUFFER 


3 - 
T1LOCLRBUF ; 

SAVREG 

MOV T19BFR,R 

MOV oT 19BEND - 1 19BFR,R2 
10$; CLRB CR1)> 

DEC R2 

BGT 10$ 

RTS PC 


3¢ 
; SETUP T19PK2 PACKET FOR READ STATUS 


3 a 

T19SRO0: 
JSR PC, TI9CLRBUF 
MOV @T190T2,RO0 


MOVB OPW. RDSTATUS,(RO)> 
CLRB CRO) 
RTS PC 


SEQ 200 


o 

sSAVE R1-RS UNTIL NEXT RETURN 
sGET MESSAGE BUFFER ADDRESS 
sSIZE OF MESSAGE BUFFER IN BYTES 
;CLEAR A BYTE 

sD0NE? 

3;68R IF NO 

;RETURN 


sCLEAR MESSAGE FER 

sWRITE SUBSYSTE DATA BUFFER 

sSTORE READ STATUS COMMAND IN BSELO 
;CLEAR BSEL1 

sRETURN 


3¢ 
; SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Status F -FLOPS 


3 oe 
TLIORSF IF: 
JSR PC, TL9CLRBUF 
MOV #T190T2,RO 
MOVB OPW. WMISC,CRO)>+ 
MOVB OMS .RSFIF IMS.RSTAP,CPRO) 
RTS PC 


SETUP T19PK2 PACKET FOR WRITE NPR 


INPUT: 
RO CONTAINS BSEL1 NPR DATA 


—dee es os of os oe os oe 
- 


LOSNPR: 


JSR PC, TISCLRBUF 
MOV #T190T2,R1 
MOVB OPW. WNPR,CR1)-> 
BIS ONP .WRP ,RO 
MOVB RO,(CR1) 

RTS PC 


3¢ 
; SETUP T19PK2 PACKET FOR READ FIFO 


3; INPUT; 
: RO CONTAINS SEL2 BYTE COUNT 
TLORF IF; 

JSR PC, TL9CLRBUF 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 

sSTORE WRITE MISCELLANEOUS IN BSELO 
:STORE BSELI CLEAR FIFO CODES 

sR 


SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY. 


;CLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
;STORE WRITE NPR IN BSELO 
3;00N‘'T WRITE WRONG PARITY 
;STORE NPR DATA IN BSEL1 
;RETURN 


sCLEAR MESSAGE BUFFER 
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SVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 201 
EST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 
5037 062072 012701 062510 MOV #T190T2,R1 sWRITE SUBSYSTEM DATA BUFFER 
5038 062076 112721 000003 MOVB oPw.RFIFO,(R1)> s;STORE READ FIFO IN BSELO 
5039 062102 110021 MOVB RO,C(R1)> sSTORE BYTE COUNT IN BSEL1 
cor 062104 000207 RTS PC ;RE TURN 
3 eo 
sone ; SETUP T19PK2 PACKET FOR WRITE FIFO 
5044 ; INPUT; 
5045 ; RO CONTAINS BYTE COUNT 
ey ; Ri CONTAINS DATA PATTERN BLOCK ADDRESS 
3 - 
5048 062106 TLOWF IF: 
5039 062106 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
5050 062112 004737 061754 JSR PC, TL9CLRBUF ;CLEAR MESSAGE BUFFER 
5051 062116 012702 062510 MOV @T190T2,R2 sWRITE SUBSYSTEM DATA BUFFER 
5052 062122 112722 000004 MOVB OPW. WFIFO,(R2)> s;STORE WRITE FIFO IN BSELO 
5053 062126 110022 MOVB RO,(R2)+ s;STORE BYTE COUNT IN BSEL1 
5054 062130 005022 CLR (R2)> s;CLEAR SEL2 CUNUSED) 
5055 062132 112122 10$: MOVB (R1)+,(R2)> ;STORE DATA PATTERN BYTE 
5056 062134 005300 DEC RO ;DONE ALL BYTES? 
5057 062136 003375 BGT 10$ :;8R IF NO 
soe 062140 000207 RTS PC ;RE TURN 
3 +e 
5060 3; SETUP T19PK2 FOR WRITE CONTROL 
5061 3 
5062 ; INPUT: 
306s 3 RO CONTAINS DFIVING DATA PATTERN 
‘ ‘- 
5065 062142 TLOWCTL: 
S066 062142 004737 061754 JSR PC, TLOCLRBUF sCLEAR MESSAGE BUFFER 
5067 062146 012701 062510 MOV @T190T2,R1 sWRITE SUBSYSTEM DATA BUFFER 
5068 062152 112721 000006 MOVB oPw.WCTL,(R1)> sSTORE WRITE CONTROL IN BSELO 
5069 062156 110021 MOVB RO,(R1)+ s;STORE DATA WORD IN BSEL1 
dag 062160 000207 RTS PC ;RE TURN 
3 > 
sore ; SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER 
5074 3; INPUT: 
od ; RO CONTAINS DRIVING DATA PATTERN 
5077 062162 T1OWFMT: 
5078 062162 004737 061754 JSR PC, TL9CLRBUF :;CLEAR MESSAGE BUFFER 
5079 062166 012701 062510 MOV @T190T2,R1 ;WRITE SUBSYSTEM DATA BUFFER 
5080 062172 112721 000007 MOVB OPW. WFMT,(R1)> ;STORE WRITE FORMAT IN BSELO 
5081 062176 110021 MOVB RO,C(R1)> :STORE DATA WORD IN BSEL1 
poss 062200 000207 RTS PC ;RE TURN 
3 > 
ee 3; SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
3 - 
5086 062202 T1LOSEXT: 
5087 062202 012700 062510 MOV ©T19DT2,RO ;WRITE SUBSYSTEM DATA BUFFER 
5088 062206 112720 000010 MOVB OPW. WMISC,(RO)>+ s;STORE WRITE MISCELLANEOUS IN BSELO 
5089 062212 112710 000200 MOVB OMS .EXT, (RO) ;STORE INVERT EXTENDED FEATURES IN BSELL 
so30 062216 000207 RTS PC ;RETURN 
3 o 
5092 ; CLEAR EXPECTED DATA MESSAGE BUFFER 


5093 ; 
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TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 202 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 
5094 062220 TI9SCLEXP: 
5095 062220 012701 060062 MOV @T19EXP,R1 ;GET EXPO ADDRESS 
5096 062224 012700 000120 MOV @T19EXEND -T19EXP,RO 3GET EXPD SIZE 
S097 062230 105021 108: CLRB (R1)> ;CLEAR A BYTE 
5098 062232 005300 DEC RO 3 DONE ? 
5099 062234 003375 BGT 10$ 36R IF NO 
+44 062236 000207 RTS PC ;RETURN 
5102 3¢ 
try ;Set WORDS 0-7 of expd message BUFFER = to recy since not testing 
1 ee 
5105 062240 T19SETEXP: 
5106 062240 012702 060062 MOV @T19EXP ,R2 3GET EXPO 
5107 062244 012703 062352 MOV OT19BFR,R3 ;GET READ STATUS RECV BUFFER 
5108 062250 012700 000010 MOV #8. ,RO 3SET WORDS 0-7 EXP=RECV 
5109 062254 012322 5$: MOV CR3)+,CR2)+ ;SET EXPD=RECV 
5110 062256 005300 DEC RO sDONE WORDS 0-7 WORDS? 
5111 062260 003375 BGT 5$ ;BR IF NO 
5112 062262 000207 RTS PC ;RETURN 
5113 2 
5114 3° 
oh ; CONVERT A TEST PATTERN DATA WORD TO LOOPBACK ORIVE SIGNALS 
116 
5117 ; INPUTS 
5118 3 
5119 : RO TEST PATTERN 
5120 3 
te! ; IMPLICIT INPUTS: 
3 
te 3 TLSBFCTL - CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 
3 
5125 ; OUTPUTS: 
5126 3 
5127 ; RO - LOW BYTE CONTAINS WRITE CONTROL DATA 
stee 3 - HIGH BYTE CONTAINS WRITE FORMAT DATA 
i 
5130 062264 T1LOCNVT: 
5131 062264 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
5132 062270 012701 060016 MOV @TISBFCTL,R1 ;CONVERSION TABLE ADDRESS 
5133 062274 005002 CLR R2 sINIT RESULT OF CONVERSION 
5134 062276 012703 000020 MOV #16. ,R3 3BIT COUNT 
5135 062302 006000 10$: ROR RO :IS THIS BIT EQUAL TO 1? 
5136 062304 103001 BCC 20$ ;68R IF NO 
5137 062306 051102 BIS (R1),R2 ;SET CONVERTED BIT 
5138 062310 005721 208: TST (R1)+ sPOINT TO NEXT BIT IN CONVERSION TABLE 
5139 062312 005303 DEC R3 ; DONE ? 
5140 062314 003372 BGT 10$ ;6R IF NO 
5141 062316 010200 MOV R2,RO ;COPY RESULT 
tH 062320 000207 RTS PC ;RETURN 
5144 
5145 
ee 062330 -*<,+10>E€177770 
3 
Bee sWRITE CHARACTERISTICS COMMAND PACKET 
3 
5152 062330 T1LOPACKET: ;COMMAND PACKET FOR TEST 


a" 


- HARDW TEST MACRO M11 -FEB-84 17:14 ; SEQ 203 
FEST “eS*SOSTEEr SL BopoMAe Re HnoBE ER: 
WRITE CHARACTERISTICS COMMAND, WITH ACK 
5153 062330 100004 . WORD 190004 $ TERTSTICS Oboe 
teed porte] Sette: — ND agua sADDRESS OF CHARACTERISTIC 
51 . : ' : 
5156 062336 000012 . WORD 10! sMINIMUM MESSAGE PACKET SIZ 
tet { CHARACTERISTICS DATA BLOCK 
5158 06234) TLODATA: 3 A FER 
5159 062340 062352 one a ca sADDRESS OF MESSAGE BUF 
Sie: ocosea “WORD 20; ;LENGTH OF MESSAGE BUFFER 
3163 oensac 000000 .WORD O° sESS.ENB.EAI ERI i 
5163 062350 009007 . ,WORD , sEXTENDED FEATURES . 
5164 
sice sMESSAGE BUFFER FOR: ALL TEST 8 COMMANDS 
3168 4 BEGIN MESSAGE BUFFER 
3169 oeosse ne eee ee ;MESSAGE TYPE 
3100 Gessss Gn0000 WORD 0; sDATA FIELD LENGTH 
5170 062354 000000 ae ee 5 OPCR 1 
5171 062356 000000 a ae ste 
5172 062360 000000 a ort 
5173 062362 000000 ae aaete 
S175 96580 9900 mp 3 pee — 
000000 XST4 (ALWAYS PRESENT FOR WRITE Y 
3179 oessve Tieersta; sos be. TREAD STATUS AND wear Sa FIFO BUFFER 
5178 062472 T19BEND: M sEND OF MESSAGE BUF 
3160 i WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
5181 3 
tr etsues 062500 wenn. =<, +10>€177770 
: ; K WRITE SUBSYSTEM WITH ACK 

gist oesaee Seonne “WORD Tisote am ;LOW ADDRESS OF DATA BLOCK 
3188 oe2504 o00080 ;wORD 0 ;HIGH ADDRESS OF DATA BLOCK 

i | K 
tH 062506 000012 . WORD 10. sMINIMUM MESSAGE PAC 
51 

: sDATA BLOCK 
sie estes 000 ee .BYTE 0 sBSELO 
3194 62512 OCOD WORD © tSELS 
FER 
5195 062514 BLKB 64 ;WRITE FIFO DATA OUTPUT BUFFE 
3197 
5198 062614 ENOTST ,  aaanes 
eheea TRAP CseETST 
5199 peng 28 sa .SBTTL TEST 9: READ/WRITE DATA PARITY TEST 
tide 

3501 ; TEST DESCRIPTION: 
3508 : This test verifies that the Write Data Parity generator 
3204 ; and the Read Data Parity checker operate properly. The 
5205 ; Transport Bus signal loopback mode is enabled and a 
5206 3 Set Wrong parity function is executed. Then various 
5207 : Write Subsystem Memory functions are performed to 
5208 ; write data to and from the FIFO in loopback mode. ; 
5209 ; The program then checks to insure u Read Data parity 
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TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 204 
TEST 9: READ/WRITE DATA PARITY TEST 


062616 
062616 
062616 
062622 
062626 
062634 


012700 065202 
004737 016510 
012737 000012 002216 


es ©: os GF Gs oe @F Gs OF ©: G2 Ge GF Gs GF GF GF Ge Gs GF GF Ge Gt GF Ge GF Gs Gs Bs GF GF GH GF Ge GF Ge Ge Ge Se GF Ge GF GH Ge GF GH Ge oF 


T2OLOOP ; 


error occurred. 

A Reset FIFO is done and the Read Data parity 

error bit is again tested to insure it cleared. 
Finally a Clear wrong parity function is done 

and it is verified the data word can pass in loopback 
mode without setting Read Data parity error. 


TEST STEPS: 
REPEAT FOR LOOPCNT 
BEGIN 


Write to TSSR ister to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Features Hardware Switch Clear then: 
Do Write ere oen Write Miscellaneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 


REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 


(« vor Write Wrong Parity Sets Parity Error «) 

Do a WRITE NPR to set loopback and tape direction OUT 
and SET Write ——— Parity. 

Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 

Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 

Do a READ FIFO with tape direction OUT to load tape out write latch 

(this is when wrong rte Ah is set) 

Do a WRITE FORMAT to set IRESV4==>IRSTR = O (sets read strobe low) 
(Read Strobe sets PAR IN H [Parity Error)) 

Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 

Do a Write Subsystem READ STATUS 

If Read Data parity error NOT=1 Then Print Error 

Do a Write Mise to RESET FIFO 

Do a Write Subsystem READ STATUS / 

If Read Date parity error NOT=0 Then Print Error 


(« Verify Date can be transferred without a Parity Error «) 


Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 

Do a WRITE NPR to set loopback and tape direction OUT 
and CLEAR Write Wrong ot 

Do a WRITE FIFO with byte count equal to 1 end Tape direction OUT 

Do a READ FIFO with tape direction OUT to load tape out write latch 

Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 (sets read strobe low) 
(Read Strobe should NOT set PAR IN H [Parity Error] here) 

Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 

Do a Write Subsystem READ STATUS 

If Read Data parity error NOT=O Then Print Error 

END 

BGNTST oe 

MOV #TST20ID,RO sASCII MESSAGE TO IDENTIFY TEST 

JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

MOV #10, ,LOOPCNT ;PERFORM 10 ITERATIONS 


K16 
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TEST 9: READ/WRITE DATA PARITY TEST 


5270 062634 BGNSUB 347////////// BEGIN SUBTEST /////////7/ 
062634 T9.1: 
062634 104402 TRAP C$B8SUB 
5271 3 Write to TSSR register to soft initialize the controller 
S272 062636 5$: 
5273 062636 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
5274 062642 103405 BCS 10$ ;68R IF SOFT INIT OKAY 
5275 062644 010001 MOV RO,R1L ;SAVE CONTENTS OF TSSR 
5276 062646 ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL OURING INIT 
062646 104455 TRAP CSERDF 
062650 001604 -WORD 9300 
062652 003652 -WORD SFIERR 
062654 012034 -WORD SFIMSG 
5277 3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 
5278 062656 005037 002222 10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
5279 062662 012704 066400 MOV @T2O0PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
5280 062666 004737 010662 JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
5281 062672 FORCERROR 1e$ ;Q@0FORCE ERROR IF FORCER=1 
5282 062706 103407 BCS 15$ ;68R IF CARRY SET (GOOD RETURN) 
5283 062710 010001 MOV RO,R1 3SAVE CONTENTS OF TSSR 
$284 062712 NEXT .ERRNO 
5285 062712 12$: ERROF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
062712 104455 TRAP CSEROF 
062714 001605 ; -WORD 901 
062716 065231 ; . WORD T20SSR 
062720 012046 .WORD PKTSSR 
5286 062722 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
5287 062726 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
062726 104406 TRAP CsCLP1 
5288 : If Extended Features Hardware Switch Clear then: 
5289 3 Do Write Subsystem Write Miscellaneous to Set Extended Features. 
5290 062730 012701 066422 MOV @T2OBFR,R1 sMESSAGE BUFFER ADDRESS 
5291 062734 032761 000200 000012 BIT @x2.EXTF,xXST2CR1) sEXTENDED FEATURES SWITCH SET? 
5292 062742 001026 BNE 30$ ;68R IF YES 
5293 062744 004737 066316 JSR PC, T20SEXT ;SETUP PACKET FOR WRITE MTSC INVERT 
S294 062750 012704 066550 MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
5295 062754 010465 000000 MOV k4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
5296 062760 004737 016336 JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 
5297 062764 FORCERROR 22s ;@@0FORCE ERROR IF FORCER=1 
5298 063000 103407 BcS 30$ ;BR IF CARRY SET (GOOD RETURN) 
5299 063002 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
5300 063004 NEXT. ERRNO 
5301 063004 22s: ERROF ERRNO, T202SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
063004 104455 TRAP CSERDF 
063006 001606 -WORD 902 
063010 065266 . WORD T202SSR 
063012 012046 .WORD PKTSSR 
5302 063014 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
5303 063020 30S: CKLOOP sLOOP ON ERROR, IF FLAG SET 
063020 104406 TRAP CSCLPL 
5304 : (Do WRITE CHARACTERISTICS to select reserved unit 7 
5305 063022 012704 066400 MOV #T2OPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
5306 063026 004737 10662 , JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
5307 063032 * FORCERROR 42$ ;@@DFORCE ERROR IF FORCER=1 
5308 063046 103407 “ pecs 50$ ;BR IF CARRY SET (GOOD RETURN) 
5309 063050 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 


5310 063052 NEXT, ERRNO 


TSV 
TES 


; gt AREADSURITE BATA 


5311 


063052 
063052 


104455 
001607 
065231 
012046 
005237 


104406 


012703 
012337 
042737 
010337 


012700 
052700 
042700 
004737 
012704 
010465 
004737 


103407 
010001 


104455 
001610 
065377 
012046 
005237 


104406 


012700 
004737 
012704 
010465 
004737 


103407 
010001 


104455 
001611 
065551 
012046 
005237 


104406 


012/700 
012701 
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PARITY test “ 
423: ERRDF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

TRAP CSsEROF 
-WORD 903 
-WORD T2OSSR 
-WORD PKTSSR 

002222 INC FATFLG sSET FATAL ERROR FLAG 


002222 


000001 
066262 
066550 
000000 
016336 


002222 


000001 
002312 


002312 


50$: 


CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 


100$: 


102$: 


112$: 


“MOV (R3)+,DATA 


MOV @TSTBLK,RS ;GET FIRST PATTERN ADDRESS 
sGET A_TEST PATTERN 

BIC @tC<377>,DATA sDATA IS BYTE 

MOV R3,TSTPTR ;SETUP CURRENT TSTBLK POINTER 


Do a WRITE NPR to set loopback and tape direction OUT and 


and SET Write Wrong Parit 
.OUT,RO iSeT TAPE DIRECTION OUT 
BIS @NP .LOOP ,RO }SET LOOPBACK 
;SET WRITE WRONG PARITY C INVERTED) 
;SETUP T20PK2 FOR WRITE NPR 
3;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 


JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 102$ ;@@OFORCE ERROR IF FORCER=1 

BCS 105$ ;8R IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO, T204SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORDB 904 


-WORD T204SSR 


-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
-%, WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 


OwF .I4RES,RO SIRESV4==>ZASTR 21 
JSR PC, T2OWFMT sSETUP T2CPK2 FOR WRITE FORMAT 
MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 


JSR PC,CHKTSSR sWAIT FOR SSP TO SET 

FORCERROR lles ;9aF ORCE ERROR IF FORCER=1 

BCS 120$ ;BR IF CARR SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 905 
-WORD T208SSR 
«WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 


CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLPl 
Do ea WRITE FIFO with byte count equal to 1 and Tape direction OUT 
MOV #1,RO ;sWRITE 1 BYTE 
MOV #DATA,R1 sFIFO WRITE DATA ADDRESS 


M16 


; MACRO _M 06-FEB-84 17:14 SEQ 207 
TES? “of RP AD Tun! 2 Bara PaRGTY tesr 
TUP_T20PK2 FOR WRITE FIFO 
Seca GnSsas GiztOe oceeso MOV @TBOPK2, Ra {GET WRITE SUBSYSTEM COMMAND PACKET 
S555 SesSen GiGees 900000 MOV —-R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
5355 063306 010465 000000 + i Sh VeAIT FOR SSA TO SET 
5356 063312 004737 016336 FORCERROR ° 152$ ;@@OFORCE ERROR IF FORCER=1 
pees ooceee BCS. 1608 sBR IF CARRY SET (GOOD RETURN) 
Soap Gesaee batons MOV. _RO,R4 ;SAVE CONTENTS OF TSSR 
3360 063336 NEXT .ERRNO_ TO SET 
FATAL SSR FAILED 
S361 0c333e 152$: ERRDF ERRNO,T20SSSR,PKTSSR —; DEVICE pee a 
063336 104455 .WORD 906 
063340 001612 .WORD T205SSR 
068848 013046 WORD PKTSSR 
06 SET FATAL ERROR FLAG 
5362 063346 005237 002222 INC __ FATFLG ay - ee 
5363 063352 160$:  CKLOOP sLOOP ON ERROR TRAP CSCLP1 
vee ; Do a READ FIFO with tape direction OUT to load tape out write latch 
$3¢5 Dee RO eee cae eT READ BYTE COUNT 
5366 063354 012700 000001 MOV #1, SETUP T2OPK2 FOR READ FIFO ‘ 
Sees Gcases GizTOs G6e550 MOV OTSOPK2, Ra ;GET WRITE SUBSYSTEM COMMAND PACKET 
seep oeeste Ginees 900000 MOV —«R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
5369 063370 010465 000000 Ré. TSOBCRS VeAIT FOR SSR TO SET 
5370 063374 004737 016336 JER apes OKTSSR. N@BDFORCE ERROR IF FORCER=1 
Sere eesece BCS «1808 :BR IF CARRY SET (GOOD RETURN) 
S575 Gnsare 10001 HOV RO,RI :SAVE CONTENTS OF TSSR 
3374 063420 NEXT . ERRNO TO SET 
: FATAL SSR FAILED 
5375 063420 172$: ERRDF ERRNO, T206SSR,PKTSSR ;DEVICE FATAL mi A CsEROF 
063420 104455 .WORD 907 
063422 001613 "WORD © T206SSR 
sper opts .WORD PKTSSR 
SET FATAL ERROR FLAG 
5376 063430 005237 002222 INC FATFLG F FLAG SET 
5377 0634340 180$:  CKLOOP ;LOOP ON ERROR, I faa cae. 
FORMAT to set IRESV4==>IRSTR = O (sets read strobe low 
2378 : idle ag tty sets PAR IN H [Parity Error]) 
3380 063436 005000 CLR + ETOP T2OPK2 FOR WRITE FORMAT 
SE 
Beet geceet soecet sesuee HOV OTBOPKS_ Ra ;GET WRITE SUBSYSTEM COMMAND PACKET 
Soe Brtees Glasses fenone MOV —«R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
5383 063450 010465 000000 MOV RA. TSDBCRS ALT FOR SSA TO set 
5384 063454 004737 016336 a VOBDFORCE ERROR IF FORCER=1 
bose oeneee BCS 2008 :BR IF CARRY SET (GOOD RETURN) 
prt 4 MOV. _RO,R1 ;SAVE CONTENTS OF TSSR 
3380 068500 NEXT .ERRNO- . 
R FAILED TO SE 
$389 063500 1923: ERRDF ERRNO,T208SSR,PKTSSR = ;DEVICE FATAL SS ooS=* oscapr 
063500 104455 .WORD 908 
063502 001614 "WORD T208SSR 
eases pete .WORD PKTSSR 
SET FATAL ERROR FLAG 
5390 063510 005237 002222 INC FATFLG IF FLAG SET 
5391 063514 2008; = CKLOOP estat same: TRAP = CSCLP 1 
aoun 063514 104406 : Do a WRITE FORMAT to set IRESV4==>IRSTR he eeee read strobe high) 
IRESV4==> : 
5393 063516 012700 000001 MOV OF . T4RES RO : TE FORMAT 
5394 063522 004737 066262 JSR PC, T20WFMT ;SETUP T20PK2 FOR WRITE FO 


TSVS - MAROWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 206 
TEST 9: READ/WRITE DATA PARITY test 

5395 063526 0612704 066550 MOV @T20PK2 .R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

S396 063532 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

5397 063536 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

5398 063542 FORCERROR 2128 s@G0FORCE ERROR IF FORCER=1 

5399 063556 103407 ecs 220% 3s6R IF CARRY SET (GOOD RETURN) 

5400 063560 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5401 063562 NEXT ..ERRNO 

5402 063562 2128: ERROF ERRNO, T208SSR ,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
063562 104455 TRAP CSEROF 
063564 001615 - WORD 909 
063566 065551 ~ WORD T208SSR 
063570 012046 - WORD PKTSSR 

S403 063572 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

5404 063576 2208: CKLOOP sLOOP ON ERROR, IF FLAG SET 
063576 104406 TRAP CSCLP1 

5405 3 Do e Write Subsystem READ STATUS 

S406 063600 004737 066146 JSR PCT T20SKD sSETUP PACKET FOR READ STATUS 

5407 063604 012704 066550 “0V @T20PK2, R4 3sGET WRITE SUBSYSTEM COMMAND PACKET 

5408 063610 010465 000000 MOV R4, TSDBCRS) 3sSET THE PACKET ADDRESS TO EXECUTE 

5409 063614 004737 016336 JSR PC. CHKTSSR sWAIT FOR SSR TO SET 

5410 063620 FORCERROR 2328 sQG0FORCE ERROR IF FORCER=1 

5411 063634 103407 6cs 2408 3s6R IF CARRY SET (GOOD RETURN) 

5412 063636 010001 MOV RO,R1L sSAVE CONTENTS OF TSSR 

5413 063640 NEXT. ERRNO 

5414 063640 2328: ERROF ERRNO, T203SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
063640 104455 TRAP CseROF 
063642 001616 - WORD 910 
063644 065332 —_ T203SSR 
063646 012046 PKTSSR 

5415 063650 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

5416 063654 2408: CKLOOP sLOOP ON ERROR, IF FLAG SET 
063654 104406 TRAP CSCLP1 

5417 3 If Read Dete perity error NOT*1 Then Print Error 

5418 063656 004737 066354 JSR PC, T20SETEXP sSET WORDS 0-7 ExXPD=RECV (NOT TESTING) 

5419 063662 012701 065102 MOV OTQOEXSTA, R1 sGET EXPECTED READ STATUS 

5420 063666 012702 066442 MOV @T208F STA.R2 3GET RECV READ STATUS 

5421 063672 011211 MOV CR2),CR1) sSET EXPO WORD @8 = RECV TEMP 

S422 063674 016261 000002 000002 MOV 2(R2),2(R1) sSET EXPO WORD @9 = RECV (NOT TESTED) 

5423 063702 052711 100000 BIS @S1.PARERR,(R1) 3SET EXP PAR ERR =i 

5424 063706 005000 CLR RO sHIGH RECV ADORESS FOR CKMSG2 

5425 063710 012701 066422 MOV @T20BFR,R1 sLOW RECV ADORESS FOR CKMSG2 

5426 063714 012702 065062 MOV @T2OEXP ,R2 sEXPD ADDRESS 

5427 063720 012703 000024 MOV 020. ,R3 sNUMBER OF ys it "9 COMPARE 

5428 063724 004737 011500 JSR PC ,.CKMSG2 sEXPO EQUAL RECV? 

5429 063730 FORCERROR 2528 ,NOTSSR 3;880 

5430 063740 103404 6cS 260% iBR IF YES 

5431 063742 NEXT. ERRNO 

5432 063742 2528: ERRHRD ERRNO, T20SWP,MSGSTAT sREPORT ERROR 
063742 104456 TRAP CSERHRD 
063744 001617 WORD 911 
063746 065617 . WORD T20SWP 
063750 012350 .WORD MSGSTAT 

5433 063752 2608: CKLOOP sLOOP ON ERROR, IF FLAG SET 
063752 104406 TRAP CsCLPl 

5434 ; Do a Write Mise to RESET FIFO 

5435 063754 012700 000020 MOV OMS RSFIF ,RO 3;SET RESET FIFO COMMAND 


5436 063760 004737 066302 JSR PC, T20WMISC sSETUP T20PK2 FOR WRITE MISC 


tes? ot READ URE TE Bara Pane ry tess ra a ereee 


012704 
010465 
004737 


00 
012701 
012702 
0127035 
004737 


066550 
000000 
016336 


002222 


002222 


000002 


2828; 


302%: 


332%: 


3408: 


MOV @T20PK2,R4 
MOV R4, TSOBC(RS) 

JSR PC; CHKTSSR 

FORCERROR 2823 

acs 2908 

MOV RO,R1 

NEXT. ERRNO 

ERRDF ERRNO, T202SSR,PKTSSR 
INC FATFLG 

CKLOOP 


Do ea Write Subsystem READ STATUS 


Ci 


SEQ 209 


sGET WRITE piesvsren COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@G@OFORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 


«WORD 912 
«WORD T202SSR 


«WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


If Read Date neh error NOT*O Then Print Error 


JSR PC, T20SETEXP 

MOV @T2OEXSTA, R1 

MOV @T2OBFSTA *R2 

MOV CR2),(R1) 

MOV 2(R2),20R1) 

BIC @S1.PARERR,(R1) 

CLR RO 

MOV @T2OBFR,R1 

MOV @T20EXP ,R2 

MOV 920. ,R3 

JSR PC .CKMSG2 

—s 3028 ,NOTSSR 
NEXT .ERRNO 

E ERRNO, T2ORSF ,MSGSTAT 
CKLOOP 

(@ Verif 

Do e WRI 

MOV OwF .I4RES,RO 

JSR PC, T20WFMT 

MOV @T20PK2 ,R4 

MOV R4, TSDBC R5) 

JSR PC,CHKTSSR 
FORCERROR 332% 

6csS 

MOV RO,R1 

NEXT, ERRNO 

ERROF ERRNO, T208SSR,PKTSSR 
INC FATFLG 

CKLOOP 


sSET WORDS 0-7 EXPD*RECV (NOT TESTING) 
sGET EXPECTED READ STATUS 

sGET RECV READ STATUS 

sSET EXPD WORD 06 = RECV TEMP 

sSET EXPD WORD #9 = RECV (NOT TESTED) 
sSET EXP PAR ERR =0 

sHIGH RECV ADORESS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 


sEXPD ADORESS 
sNUMBER OF tt F » 10 COMP ARE 
sEXPD EQUAL RECV? 
3880 
i8R IF YES 
sREPORT ERROR 
TRAP CSERHRD 
-WORD 913 
. WORD T2ORSF 
.WORD MSGSTAT 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


¥ Date can be transferred without e Parity Error «) 
aoe FORMAT to set IRESV4*=>IRSTR = 1 (sets read strobe high) 


sIRESV4*=>IRSTR = 1 
sSETUP T20PK2 FOR WRITE FORMAT 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT Ag SSR TO SET 

@S80FORCE ERROR IF —s 
36R IF CARRY SET (GOOD RETURN 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


-WORD 914 
-WORD T208SSR 


.WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP =—s- CSCLPL 


Di 


Tee? “ot RPKB bathe "Bara BRO rites, 06 -FEB-84 17:14 


002222 


000001 
002312 


066226 
066550 
000000 
916336 


002222 


3528: 


3728: 


3928: 


400$; 


Do a WRITE to set 1 


LEAR Write 
0 


JSR PC. CHKTSSR 

FORCERROR 352$ 

6CcS 360 

MOV RO,R1 

NEXT .ERRNO 

ERROF ERRNO, T204SSR,PKTSSR 
INC FATFLG 

CKLOOP 


SEQ 210 


ack and tape direction OUT and 
rong Parity 


iSET. TAPE DIRECTION OUT 
sSET LOOPBACK 
sCLEAR WRITE WRONG PARITY CINVERTED) 
sSETUP T20PK2 FOR WRITE NPR 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT ge" SSR TO SET 

@SOFORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
«WORD 915 
«WORD T204SSR 
«WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP CsCLP1 


Do a WRITE FIFO with byte count equal to 1 and Tape direction OuT 


MOV #1,RO0 


FORCE 3728 

BCS $ 

MOV RO,R1 

NEXT .ERRNO 

ERROF ERRNO, T205SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Do a READ FIFO with tape direction OUT to load t 


MOV #1,R0 


JSR PC, T2ORF IF 
MOV @T2O0PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 
FORCERROR 3928 
6csS 400$ 

MOV RO,R1 

NEXT .ERRNO 

ERROF ERRNO, T206SSR,PKTSSR 
INC FATFLG 
CKLOOP 


sWRITE 1 BYTE 
sFIFO WRITE DATA ADDRESS 
sSETUP T20PK2 FOR WRITE FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@BOFORCE ERROR IF FORCER=1 
36R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
«WORD 916 
«WORD T205SSR 
-WORD PKTSSR 


;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

ape out write Ilstch 
sSET READ BYTE COUNT 
s;SETUP T20PK2 FOR READ FIFO 
;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT dhe" SSR TO SET 

Q@BDFORCE ERROR IF FORCER=1 
3BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


TRAP CSERDF 
-WORD 917 
-WORD T206SSR 
-WORD PKTSSR 


:SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


El 


TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 211 
TEST 9: READ/WRITE DATA PARITY TEST 
064456 104406 TRAP CSCLPi 
5522 3 Do a WRITE FORMAT to set IRESV4=*=>IRSTR = 0 (sets read strobe low) 
5523 : (Read Strobe sets PAR IN H (Parity Error) ) ; 
5524 064460 005000 CLR RO sIRESV4==>IRSTR = O 
SS25 064462 004737 066262 JSR PC, T2OWFMT sSETUP T20PK2 FOR WRITE FORMAT 
5526 064466 012704 066550 MOV @T20PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
S527 064472 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
5528 064476 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
5529 064502 FORCERROR 412$ s@QBOFORCE ERROR IF FORCER=1 
5530 064516 103407 BCS 420% ;BR IF CARRY SET (GOOD RETURN) 
5531 064520 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5532 064522 NEXT .ERRNO 
5533 064522 4123; ERRDF ERRNO, T208SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
064522 104455 TRAP CSERDF 
064524 001626 «WORD 918 
064526 065551 «WORD T208SSR 
064530 012046 -WORD PKTSSR 
5534 064532 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
5535 064536 4208: CKLOOP sLOOP ON ERROR, IF FLAG SET 
064536 104406 TRAP CSCLP1 
5536 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe hig.) 
5537 064540 012700 000001 MOV OwWF .I4RES,RO SIRESV4"*>IRSTR = 1 
5538 064544 00473; 066262 JSR PC, T2OWFMT sSETUP T20PK2 FOR WRITE FORMAT 
5539 064550 012704 066550 MOV @T20PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
5540 064554 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
5541 064560 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
5542 064564 FORCERROR 4323 s880FORCE ERROR IF mate 
5543 064600 103407 Bcs 440$ 3;BR IF CARRY SET (GOOD RETURN 
5544 064602 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5545 064604 NEXT. ERRNO 
5546 064604 432%: ERRDF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
064604 104455 TRAP CSEROF 
064606 001627 .- WORD 919 
064610 065551 «WORD T208SSR 
064612 012046 .- WORD PKTSSR 
5547 064614 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
5548 064620 4403: CKLOOP 3LOOP ON ERROR, IF FLAG SET 
5549 064620 104406 TRAP CSCLP1 
5550 F Do a Write ee stem READ STATUS 
5551 064622 004737 066146 JSR PC,T 20SkD sSETUP PACKET FOR READ STATUS 
S552 064626 012704 066550 MOV eTS0PKe, R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
5553 064632 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
5554 064636 004737 016336 JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 
5555 064642 FORCERROR 4523 sQ@@OFORCE ERROR IF FORCER=1 
5556 064656 103407 BCS 460$ ;6R IF CARRY SET (GOOD RETURN) 
5557 064660 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5558 064662 NEXT .ERRNO 
5559 064662 452s: ERRDF ERRNO, T203SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
064662 104455 TRAP CSERDF 
064664 001630 . WORD 920 
064666 065332 . WORD T203SSR 
064670 012046 . WORD PKTSSR 
5560 064672 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
5561 064676 460$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
064676 104406 TRAP CsCLP1 


5562 : If Read Date parity error NOT=O Then Print Error 


TSVS - HARDWARE T 
TEST 9; READ/WRI 


S563 064700 
5564 


5605 065056 


5607 065056 
5608 065057 
5609 065060 
5610 065061 


e "Bara Pantry ter C&-FEB-84 17:14 


004737 
012701 
012702 
Ollell 
016261 
042711 


005000 
012701 
012702 
012703 
004737 


103404 


012350 
104406 


013703 


066354 
065102 
066442 


002316 
003062 


063074 


002222 
017202 
016456 
050526 


4728: 


480$: 


5558: 


560$: 


565%: 


Fi 


JSR PC, T2O0SETEXP 
MOV @T20EXSTA,R1 
MOV @T2O0BFSTA,R2 
MOV CR2),(R1) 

MOV 2(R2),2CR1) 

BIC Si. PARERR, (R1) 
CLR RO 

MOV @T2OBFR,R1 

MOV @T20EXP ,R2 

MOV 

JSR SG2 

4” yepee 472$%,NOTSSR 
NEXT .ERRNO 

ERRHRD ERRNO, T20CWP,MSGSTAT 
CKLOOP 

FORCEXIT 555$ 
MOV TSTPTR,RS 

CMP R3,@TBLEND 

BHIS 555% 

JMP 100$ 

ENOSUB 

TST FATFLG 

BEQ 560$ 

JSR PC ,CKDROP 

JSR PC, TSTLOOP 

BCC 565% 

JMP T18LOOP 

EXIT TsT 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


T20MSK ; 


-BYTE 


“BYTE 


tC<000> 
tC<340> 
tC<O17> 
0 


SEQ 212 


sSET WORDS 0-7 aan orate CNOT TESTING) 
sGET EXPECTED READ STATUS 

sGET RECV READ STATUS 

sSET EXPD WORD #8 = RECV TEMP 

sSET EXPD WORD #9 = RECV (NOT TESTED) 
sSET EXP PAR ERR =0 

sHIGH RECV ADDRESS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 

sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 

sEXPD EQUAL RECV? 


380 
;BR IF YES 
sREPORT ERROR 


TRAP CSERHRD 

-WORD 921 

«WORD T20CWP 

-WORD MSGSTAT 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


3880 
sRESTORE CURRENT TSTBLK POINTER 
sEND OF TSTBLK? 

;BR IF YES 

:00 ANOTHER TSTBLK PATTERN 


s/////4/17///7/ END SUBTEST S/S //////7/ 
L100 


" TRAP = CSESUB 
sANY FATAL ERRORS ? 

sBRANCH IF NOT 

sTRY TO DROP THE UNIT 


300 ITERATIONS? 
3;BR IF 
;LOOP UNTIL ITERATIONS DONE 


SSSA A44/44 EXIT TEST S4SAS4AAA44 
TRAP 
- WORD 


CSExIT 
L10073- . 


sMASK OF UNTESTED BITS IN READ STATUS 
sUNTESTEO BITS ARE SET TO 1 

sBYTE O MASK 

sBYTE 1 MASK (PARERR, IRESV2, IRESV1) 
sBYTE 2 (TIMER A,TIMER B,UNDEF INED<1:0>) 
sMAKE IT EVEN 


TEST gt REAOCURITE BATA BAREIS teer To Sonn 


TSVS 

S611 

5612 065062 

5613 065062 000000 

5614 065064 000000 

5615 065066 000000 

5616 065070 000000 

5617 065072 000000 

5618 065074 000000 

5619 065076 000000 

5620 065100 000000 

5621 065102 

5622 065202 

5623 

5624 

5625 

5626 

S627 065202 122 

5628 065231 127 
065266 127 

5630 065332 127 

5631 065377 127 

S632 065442 127 

5633 065506 127 

5634 065551 127 

5635 065617 122 

5636 065726 122 

5637 066027 122 

5638 

5639 

5640 

5641 

5642 

5643 066122 

5644 066122 

5645 066126 012701 

3646 066132 012702 

5647 066136 105021 

5648 066140 005302 

5649 066142 003375 

5650 066144 000207 

5651 

5652 

5653 

5654 

S655 066146 

5656 066146 004737 

5657 066152 012700 

5658 066156 112720 

5659 066162 105010 

5660 066164 000207 

5661 

S662 

5663 

5664 

5665 

5666 

5667 


066422 
000120 


066122 
066560 
000005 


T20EXP: 


Gl 


ocooooooo 


T2OEXSTA: .BLKB 64. 


T20EXEND: 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


5° 
TST20ID: 
-ASCIZ 


:.ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
.EVEN 


7° 
; CLEAR MESSAGE 


-ASCIZ 
‘WRITE 


SEQ 213 


sBEGIN EXPECTED DATA BUFFER 

sMESSAGE TYPE 

sDATA FIELD LENGTH 

:RBPCR 

3XSTO 

sXST1 

3xST2 

+XST3 

sXST4@ CALWAYS PRESENT FOR WRITE SUB.) 

sEXPECTED READ STATUS AND WRITE FIFO DATA 
;END EXPECTED DATA BUFFER 


‘Read/Write Data Parity’ 
CHARACTERISTICS Failed’ 


‘WRITE SUBSYSTEM (Write Misc) Failed’ 
‘WRITE SUBSYSTEM (Read Status) Failed’ 
‘WRITE SUBSYSTEM (Write Nor) Feiled’ 
‘WRITE SUBSYSTEM (Write FIFO) Failed’ 
‘WRITE SUBSYSTEM (Read FIFO) Failed’ 
‘WRITE SUBSYSTEM (Write Format) Failed’ 


‘Read Date Parity Error (PARERR) Failed to Set after Write Wr 


Parity’ 


‘Read Date Parity Error (PARERR) Failed to Clear after RESET FIFO: 
‘Read Date Parity Error (PARERR) occurred in Data Loopback’ 


BUFFER 


@T2O0BFR,R1 
@T2OBEND - T2OBFR ,R2 
(R1)> 


+ 
; SETUP T20PK2 PACKET FOR READ STATUS 


— 
T20SRD: 
JSR 
MOV 
MOVB 
CLRB 
RTS 


PC, T2ZO0CLRBUF 
@T200T2,RO 

OPW .ROSTATUS,(RO)>+ 
CRO) 

PC 


s SETUP T20PK2 PACKET FOR WRITE NPR 


; RO CONTAINS BSEL1 NPR DATA 


Hy 

;SAVE R1-RS UNTIL NEXT RETURN 
;GET MESSAGE BUFFER ADDRESS 
;SIZE OF MESSAGE BUFFER IN BYTES 
;CLEAR A BYTE 

3;DONE? 

3;68R IF NO 

;RETURN 


sCLEAR MESSAGE BUFFER 

;sWRITE SUBSYSTEM DATA BUFFER 

;STORE READ STATUS COMMAND IN BSSELO 
;CLEAR BSEL1 

;RETURN 


TSVS -_ HARDWARE 
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004737 
012701 
112721 
110011 
000207 


004737 
012701 
112721 
110021 
000207 


066122 
066560 
000003 


066122 
066560 
000004 


066122 
066560 
000007 


Hi 


T M -FEB- , 
tee Bara PaRO ry tes, 06 -FEB-84 17:14 SEQ 214 
ry 
T2OWNPR : 
JSR PC, T2OCLRBUF sCLEAR MESSAGE BUFFER 
MOV @T20DT2,R1 ;WRITE SUBSYSTEM DATA BUFFER 
MOVB OPW.WNPR,(R1)+ sSTORE WRITE NPR IN BSELO 
MOVB ~—— RO, (R11) sSTORE NPR DATA IN BSEL1 
RTS PC ; RETURN 
3° 
; SETUP T20PK2 PACKET FOR READ FIFO 
; 
3; INPUT: 
; RO CONTAINS SEL2 BYTE COUNT 
fhe 
TOORF IF: 
JSR PC, T2OCLRBUF ;CLEAR MESSAGE BUFFER 
MOV @T200T2,R1 ;WRITE SUBSYSTEM DATA BUFFER 
MOVB OPW.RFIFO,(R1)+ ;STORE READ FIFO IN BSELO 
MOVB RO, CR1)+ sSTORE BYTE COUNT IN BSEL1 
RTS PC ; RETURN 
3¢ 
3; SETUP T20PK2 PACKET FOR WRITE FIFO 
3 
3; INPUT: 
j RO CONTAINS BYTE COUNT 
: R1 CONTAINS DATA PATTERN BLOCK ADDRESS 
hee 
T2OWF IF : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
JSR PC, T2OCLRBUF ;CLEAR MESSAGE BUFFER 
MOV @T200T2,R2 ;WRITE SUBSYSTEM DATA BUFFER 
MOVB PW.WFIFO,(R2)+ ;STORE WRITE FIFO IN BSELO 
MOVB RO, (R2)+ ;STORE BYTE COUNT IN BSEL1 
CLR (R2)+ sCLEAR SEL2 (UNUSED) 
103: MOVB (R1)+,CR2)> ;STORE DATA PATTERN BYTE 
DEC RO ;DONE ALL BYTES? 
BGT 10$ ;BR IF NO 
RTS PC ;RETURN 
. 
; SETUP T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER 
3 
3 INPUT: 
; RO CONTAINS DRIVING DATA PATTERN 
T2OWFMT 
JSR PC, T2OCLRBUF ;CLEAR MESSAGE BUFFER 
MOV @T200T2,R1 ;WRITE SUBSYSTEM DATA BUFFER 
MOVB OPW.WFMT,(R1)> ;STORE WRITE FORMAT IN BSELO 
MOVB = RO, (R1)> ;STORE DATA WORD IN BSEL1 
RTS PC ;RETURN 
+ 
SETUP T20PK2 PACKET FOR WRITE MISC. 


RO CONTAINS WRITE MISC DATA 


TSVS -_ HARDWARE T 
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T 


012703 


100004 
066410 


000000 
000012 
066422 
000000 
000024 
000000 
000007 


066560 
000010 


Bara" BRAP INES O8-FER-04 17:14 


T2OWMISC: 


Il 


@T200T2,R1 
oPW.WMISC,CR1)+ 
RO,C(R1) 

PC 


SEQ 215 


sWRITE SUBSYSTEM DATA BUFFER 

sSTORE WRITE MISCELLANEOUS IN BSELO 

a I sate EXTENDED FEATURES IN BSEL1 
U 


3¢ 
+ SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 


ee 
T20SEXT: 


3¢ 
; CLEAR EXPECTED DATA MESSAGE BUFFER 


ie 
T2OCLEXP: 


10$; CLRB 


#T20DT2,RO0 
oPW.WMISC ,CRO)-+ 
ee 


@T2O0EXP,R1 


@T20EXEND - T20EXP ,RO 


CR1)+ 


sWRITE SUBSYSTEM DATA BUFFER 

sSTORE WRITE MISCELLANEOUS IN BSELO 

Ah ney EXTENDED FEATURES IN BSEL1 
3 


:GET EXPD ADDRESS 
;GET EXPD SIZE 
;CLEAR A BYTE 
:DONE? 

;6R IF NO 

sRETURN 


3;¢ 
sSet WORDS 0-7 of expd message BUFFER = to recy since not testing 


ie 
T2OSETEXP; 


S$: MOV 


° 
sWRITE CHARACTERISTICS COMMAND PACKET 


3 
T2OPACKET: 


T2ODATA: 


sMESSAGE BUFFER FOR ALL TEST 17 COMMANDS 


@T20EXP ,R2 
@T2O0BFR,R3 


#8. ,RO 
CR3)+,CR2)+ 
RO 

S$ 

PC 


100004 
T2ODATA 


10, 


sGET EXPD 

sGET READ STATUS RECV BUFFER 
sSET WORDS 0-7 EXP=RECV 

sSET EXPD=RECV 

sDONE WORDS 0-7 WORDS? 

;BR IF NO 

;RETURN 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sMINIMUM MESSAGE PACKET SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sESS,EN8,EAI,ERI 
sEXTENDED FEATURES UNIT NO, 


TSVS - HARDWARE TESTS 
TEST 9: READ/WRITE DATA PARITY TEST 


104401 


MACRO M11.i3_ 06-FEB-84 17:14 


J1 


SEQ 216 


TOOBFR: sBEGIN MESSAGE BUFFER 

-WORD 0 sMESSAGE TYPE 

-WORD O sDATA FIELD LENGTH 
.WORD 0 s;RBPCR 

-WORD 0 sXSTO 

-WORD 0 sxST1 

.WORD O +xST2 

.WORD 0 3XST3 

0 sXST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 


sREAD STATUS AND WRITE FIFO BUFFER 
sEND OF MESSAGE BUFFER 


3 
sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
3 

-*<,¢10>€177770 


. WORD 
T2O0BFSTA: .BLKB 64. 
T20BEND: 


T20PKe: 
-WORD P.WRTSUB!IP.ACK sWRITE SUBSYSTEM WITH ACK 
-WORD T20DT2 ;LOW ADDRESS OF DATA BLOCK 
-WORD O sHIGH ADDRESS OF DATA BLOCK 
. WORD 10 sMINIMUM MESSAGE PACKET SIZE 
T200T2: ;DATA BLOCK 
-BYTE O ;BSELO 
BYTE 0O ;BSEL1 
-WORD O 3SEL2Q 
-BLKB 64, sWRITE FIFO DATA OUTPUT BUFFER . 
ENOTST 


L10073: 
TRAP CsETST 
-SBTTL TEST 10: MANUAL INTERVENTION 


;THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST”) 
;THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
;THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 

;THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
;SUBTESTS ANDO THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

;THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
sARE BY TYPING <CYRL-C> OR SELECTING CODE 7. 

;SELECTION CODES AND SUBROUTINES ARE: 


: 


ROUTINE 


HELP. PRINTS THIS MENU, 

TURN ON ALL M7196 LED INDICATORS 
TURN OFF ALL M7196 LED INDICATORS 
OFFLINE/ONLINE ATTENTION TEST 
WRITE-PROTECT TEST 

INITIATE TRANSPORT SERVO EXERCISER 
PRINT EXTENDED TRANSPORT STATUS 
EXIT (RETURN TO SUPERVISOR) 


NOU SWMRO 


EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 


ee © © oe ee + Se Se Ge Gs Ge GF GF oF oF oe 


TSVS - HARDWARE TEST 
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KK 


magko M1113 06-FEB-84 17:14 SEQ 217 


; 
;PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 
; 


; 

;CAUSES ALL THREE LED INDICATORS ON THE M7196 MODULE 

;TO BE ILLUMINATED. AFTER INITIATING THIS ROUTINE, THE OPERATOR 
;SHOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ALL LIT. 
:THIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
3;SET THE FORCE WRONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE 
;"PROCESSOR NOT OK” LED. THEN IT ENTERS A LOOP THAT CONTINUALLY 
sWRITES THE LOW BYTE OF TSOB AND READS THE TSSR. THESE LATTER TWO 
s;OPERATIONS WILL CAUSE THE "NOT SSR” AND “ORIVING BUS” LED’S TO 
;GLOW -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR 
sREASONABLY VISIBLE. 

3 


‘ 

sINITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO 
sEXTINGUISH. 

: 


; 

sTHIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A 

s;WRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS, 

s ISSUES A MESSAGE BUFFER RELEASE COMMAND, PRINTS A MESSAGE ON THE 
;CONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE 
sSWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. 

s;EACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF-LINE OR 
;VICE-VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM 
;WILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT. 
;THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE 

sSTATE INDICATED BY THE LED ON THE FRONT PANEL OF THE TRANSPORT. 

3IN ADDITION, WHEN THE TRANSPORT IS PLACED OFF-LINE, THE PROGRAM 

s ISSUES A SEQUENCE OF TAPE-MOTION COMMANDS (READ, WRITE, POSITION, ETC. 
3;ANO VERIFIES THAT, FOR EACH COMMAND, FUNCTION REJECT TERMINATION 

5 dina ALONG WITH THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING 
3 : 


3 

;THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 

;TAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN 
sWAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
;UPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
3A WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 

;TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
;THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
sWRITE-PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 
;AN ERROR IS REPORTED. 

; 

‘ 


H 

s INSTRUCTS THE OPERATOR TO PLACE THE TAPE TRANSPORT(S) 

s;ON-LINE CIF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED 
sSTATUS READOUT. FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE, 

3 THE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE 

; TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING 
3SUCH IS ISSUED. 


TSVS - HARDWARE 


TEST 10: MANUAL 


TES 
INT 


071444 


012746 
012746 


TS 
ERVE 


MACRO M1113 06-FEB-84 17:14 
NTL 1 B 17:1 


BGNTST 
RFLAGS 
BEQ 
072250 MOV 
BR 
21s: 
073365 MOV 
016510 3$; JSR 
020500 JSR 
bcs 
071450 JMP 
228: 
002222 2s: CLR 
176750 071462 MOV 
015774 S$: JSR 
6cs 
MOV 
000200 BIT 
BNE 
DELAY 
000250 
002116 
177772 
177756 
071462 DEC 
BNE 
ERRDF 
073412 23%: MOV 
000006 MOV 
020256 JSR 
MOV 
ASL 
067044 JMP 
6$: . ¥ORD 
» WORD 
.WORD 
. WORD 
. WORD 
. WORD 
. WORD 
10$: PRINTF 
073261 
000001 


& 


RO 


21$ 
@TS38NE ,RO 
3$ 


#T38ID,RO 
PC, TSTSETUP 
PC, CHKMAN 
22s 

64$ 


FATFLG 


#65000. , T380LY 
+S alle 


T380LY 


S$ 
ERRNO, SF IERR, SF IMSG 


OMIMENU,RO 
6 


63$ 
#T38MS2 


SEQ 218 


T10:: 
sGET OPERATOR FLAGS 


;BR, IF OK TO RUN 
+"TEST NOT EXECUTED” 
3 JUMP IF NOT FIRST TEST 


sTEST ID MESSAGE 

300 THE COMMON SETUP 

3IS MANUAL INTERVENTION ALLOWED? 
;BR, IF MANUAL INTER ALLOWED 

; JUMP IF NOT ALLOWED 


;CLEAR THE FATAL ERROR FLAG 
;SET UP DELAY COUNTER 

300 A SOFT INIT 

sBRANCH IF OK 

sCONTENTS OF TSSR REGISTER 
;CHECK FOR TSSR SET 

sKEEP GOING IF NOT SET 
sCALL DELAY ROUTINE 


TRAP CSRFLA 


MOV _ (PC )+ 


. WORD 
MOV LSDOLY,CPC)+ 
-WORD 0O 
DEC -6(PC) 
BNE 74 
DEC -22(PC) 
BNE .-20 
;BUMP COUNTER DOWN 
;BR. IF MORE TIME LEFT 
sREPORT FATAL ERROR 
TRAP CSERDF 
-WORD 1001 
«WORD SFIERR 
WORD SFIMSG 


sMENU OF MANUAL INTERVENTIONS 

;MAXIMUM ALLOWED SELECTION 

3GO GET THE OPERATORS SELECTION 

;GET NUMBER FROM ROUTINE 

;CONVERT TO WORD OFFSET 

;JUMP TO PROPER LOOP 

sRETYPE THE MENU 

: 1 TURN ON LED'S 

: 2 TURN OFF LED'S 

3 3 ONLINE ATTENTION 

3 4 WRITE PROTECT 

; 5 EXTENDED TRANSPORT STATUS 

; 6 LEAVE THE TEST 

;TELL OPERATOR TO CNTRL-C FOR EXIT 
MOV &T38MS2, -C SP) 


TSVS - HARDWARE T 
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INTERVENTI 
010600 
104417 
062706 000004 
004737 074016 
004737 015774 
103405 
010001 
104455 
001752 
003652 
012034 
013737 002202 
012704 072170 
004737 010662 
103405 
010001 
104456 
001753 
005056 
012034 
112737 000000 
112737 000011 
012704 071470 
010465 000000 
004737 016336 
103405 
010001 
104455 
001754 
072666 
012046 
104406 
012700 000340 
104441 
005037 071454 
032737 000100 
001005 
005237 071454 
052737 000100 
012701 
011137 071456 
012721 070750 
011137 071460 
012711 000340 
012700 000000 
104441 


072210 


071501 
071500 


177560 


177560 


100$: 


1108: 


M1 


RO M1113 06-FEB-84 17:14 


SEQ 219 
MOV P,RO 
TRAP CSPNTF 
ADD #4 ,SP 

sSET PACKET TO INITIAL VALUES 

300 SOFT INIT OF CONTROLLER 

36R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 

‘ TRAP CsEROF 
: «WORD 1002 

«WORD SFIERR 
«WORD SFIMSG 

3SET UNIT NUMBER 

;SUBROUTINE NEEDS PACKET ADORESS 

; ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 1003 
-WORD WRTMSG 
-WORD SFIMSG 


sCLEAR BIT 04 
sWRITE MISC COMMAND 
;SET UP NEW WRT. SUBSYS MEM. COMMAND 


° 
sNOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED 


150$: 


7018: 


JSR PC, T38REST 
JSR PC, SOF INIT 
BCS 100$ 

MOV RO,R1 

ERROF ERRNO,SFIERR,SFIMSG 
MOV UNITN, T380SW 
MOV @T38PK2 ,R4 
JSR PC,,WRICHR 

BCS 110$ 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SF IMSG 
MOVB #0,1T388S1 
MOVB #11,1T388S0 
MOV @TS8PACKET ,R4 
MOV R4, TSDBCRS) 
JSR PC,CHKTSSR 
BCS 150$ 

MOV RO,R1 

ERRDF ERRNO, T38SSR,PKTSSR 
CKLOOP 

SETPRI @PRIO7 

CLR TTION2 

BIT #100, ae@TTICSR 
BNE 701% 

INC TTION2 

BIS #100, 8¢TTICSR 
MOV @TTIVEC,R1 
MOV (R1), TVSAV2 
MOV @590$,(R1)+ 
MOV (R1), TPSAV2 
MOV #PRIO7,(R1) 


SETPRI #PRIOO 


;SET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR rane 


CSEROF 

-WORD 1004 

«WORD T38SSR 

-WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 

TRAP CsCcLP1 
sRAISE THE PRIORITY 

MOV @PRIO7,RO 

TRAP C$SPRI 


sASSUME INTERRUPTS ARE ENABLED 

sARE TTI INTERRUPTS ON ? 

;BRANCH IF YES 

sFLAG SET IF INTERRUPTS OFF 

sENABLE INTERRUPTS 

sSTART OF TTI VECTORS 

sSAVE THE CURRENT TTI VECTOR 

;SET NEW INTERRUPT ROUTINE 

;SAVE THE VECTOR PRIORITY 

sUSE PRIORITY SEVEN 

;LOWER INTERRUPT BR LEVEL 
MOV @PRIOO,RO 
TRAP CsSPRI 


Ni 
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5993 067314 012701 177777 MOV @-1,R1 sDATA TO WRITE TO TSDB 

5994 067320 000240 12$: NOP sALLOW OPERATOR TO TYPE tC 

5995 067322 012702 001750 MOV #1000. ,R2 3SET-UP INNER LOOP 

5996 067326 110165 000000 14$: MOVB R1, TSOBCRS) s;WRITE DATA TO TSOB 

5997 067332 016500 000002 MOV TSSRCRS),RO sREAD TSSR 

5998 067336 005302 DEC R2 sREDUCE INNER COUNT 

5999 067340 001372 BNE 14$ sLOOP TILL EXPIRES 

sess 067342 000766 feta 12$ ;LOOP UNTIL HALTED 

6002 067344 15%: PRINTF @T38MS2 ;TYPE CNTL C TO EXIT 
067344 012746 073261 MOV #T38MS2, -(SP) 
067350 012746 000001 MOV #1, -(SP) 
067354 010600 MOV SP ,RO 
067356 104417 TRAP CSPNTF 
067360 062706 000004 ADD @4,SP 

6003 067364 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

6004 067370 103405 BCS 200% ;8R IF SOFT INIT = OK 

6008 067372 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6009 067374 ERRDF ERRNO,SFIERR,SFIMSG s;DEVICE FATAL ERROR DURING INIT 
067374 104455 TRAP CsSEROF 
067376 001755 WORD 1005 
067400 003652 WORD SFIERR 
067402 012034 WORD SFIMSG 

6010 067404 2008: 

6011 067404 013737 002202 072210 MOV UNITN, T380SW ;SET UNIT NUMBER 

6012 067412 012704 072170 MOV @T38PK2,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

6013 067416 004737 010662 JSR PC,WRTCHR ; ISSUE WRITE CHARACTERISTICS 

6014 067422 103405 Bcs 210% 3;6R, IF COMMAND ISSUED OK 

6018 067424 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6019 067426 ERRHRD ERRNO,WRTMSG, SFIMSG s;WRITE CHARACTERISTISC FAILED 
067426 104456 TRAP CSERHRD 
067430 001756 -WORD 1006 
067432 005056 -WORD WRTMSG 
067434 012034 .WORD SFIMSG 

oor FPSSSAESAHEASEESESESEEEEEEEEOEEHEEOEEOEKEEEEEEEEEEEEHEEEEAEEEEEOE 

1 ; 
eos ; THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF 
6 

6024 F FSSSESEHESASESESEHESESEEESLEEEEESEHEEHAESADEEESEEEHEEEKREEEEEEEEEEEODEEED 

6025 067436 210: 

6026 067436 112737 000000 071501 MOVB ©0,1388S1 ;CLEAR BIT 04 

6027 067444 112737 000025 071500 MOVB #25, 738BSO0 :;STOP DRIVE TEST 22 

6028 067452 012704 071470 MOV @T3BPACKET ,R4 ;SET UP NEW WRT. SUBSYS MEM. COMMAND 

6029 067456 010465 000000 MOV R4, TSDBC(RS) 3SET THE PACKET ADDRESS 

6030 067462 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

603% 067466 103405 Bcs 250$ ;8R IF CARRY SET (GOOD RETURN) 

6032 067470 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 

6036 067472 ERRDF ERRNO, T38SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
067472 104455 TRAP CsEROF 
067474 001757 ~ WORD 1007 
067476 072666 .WORD T38SSR 
067500 012046 .WORD PKTSSR 

6037 067502 250%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
067502 104406 TRAP CSCLPi 

6038 067504 SETPRI @PRIO7 ;RAISE THE PRIORITY 
067504 012700 000340 MOV @PRIO7,RO 


067510 104441 TRAP CSSPRI 


Bo 
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TEST 10: MANUAL INTERVENTION 

6039 067512 005037 071454 CLR TTION2 sASSUME INTERRUPTS "ah tates 

6040 067516 032737 000100 177560 BIT #100, 8eTTICSR sARE TTI INTERRUPTS 

6041 067524 001005 BNE 7108 sBRANCH IF YES 

6042 067526 005237 071454 INC TTION2 sFLAG SET IF INTERRUPTS OFF 

6043 067532 052737 000100 177560 BIS #100, 80TTICSR sENABLE INTERRUPTS 

6044 067540 012701 000060 7108: MOV @TTIVEC,R1 sSTART OF TTI VECTORS 

6045 067544 011137 071456 MOV (R1), TVSAV2 sSAVE THE CURRENT TTI VECTOR 

6046 067550 012721 070750 MOV 05908 ,(R1)+ sSET NEW INTERRUPT ROUTINE 

6047 067554 0111357 071460 MOV (R1), TPSAV2 sSAVE THE VECTOR PRIORITY 

6048 067560 012711 000340 MOV @PRIO7,(R1) sUSE PRIORITY SEVEN 

6049 067564 SETPRI @PRIOO sLOWER INTERRUPT BR LEVEL 
067564 012700 000000 MOV @PRIOO,RO 
067570 104441 TRAP CsSPRI 

6050 067572 000240 260%: NOP sALLOW CNTL C 

cone 067574 000776 BR 260% sLOOP UNTIL STOPPED 

6 

6053 

6054 067576 208; PRINTF @T38MS2 sTELL’EM WHAT TO TYPE 
067576 012746 073261 MOV @T38MS2, -(SP) 
067602 012746 000001 MOV #1,-C(SP) 
067606 010600 MOV SP,RO 
067610 104417 TRAP CSPNTF 
067612 062706 000004 ADD @4,SP 

6055 067616 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
067616 012700 000000 MOV @PRIOO,RO 
067622 104441 TRAP CsSPRI 

6056 067624 005037 002224 CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 

6057 067630 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

6058 067634 103405 BCS 300% s68R IF SOFT INIT = OK 

6062 067636 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6063 067640 ERROF  ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR OURING INIT 
067640 104455 TRAP CsEROF 
067642 001760 -WORD 1008 
067644 003652 «WORD SFIERR 
067646 012034 -WORD SF IMSG 

6064 067650 300%; 

6065 067650 013737 002202 072210 MOV UNITN, T380SW sSET UNIT NUMBER IN PACKET 

6066 067656 012737 000040 072206 MOV BITS, TS8EAI sENABLE ATTENTION INTERRUPTS 

6067 067664 012704 072170 MOV @T38PK2 ,R4 sSUBROUTINE NEEDS PACKET ADORESS 

6068 067670 004737 010662 JSR PC, ,WRICHR s ISSUE WRITE CHARACTERISTICS 

6069 067674 103405 ecs 3108 sBR, IF COMMAND ISSUED OK 

6073 067676 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6074 067700 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
067700 104456 TRAP CSERHRO 
067702 001761 «WORD 1009 
067704 005056 «WORD WRTMSG 
067706 012034 -WORD SF IMSG 

6075 067710 3108: 

6076 067710 012704 072220 MOV OTSEPKS,R4 sSET UP NEW PACKET FOR MESS BUF REL 

6077 067714 010465 000000 MOV R4, TSOBCRS) sMESSAGE BUFFER RELEASE ,ACK,.CvC=1 CMD 

6078 067720 004737 016250 JSR ~ WAITF sWAIT FOR SSR TO SET 

6079 067724 005002 CLR sMAKE SURE ALL IS CLEAR 

6080 067726 016501 000002 MOV TSSRCRS), R1 sGET TSSR STATUS 

6081 067732 032701 000100 BIT @OFL ,R1 sIS OFL SET 

6082 067736 001402 BEQ 3208 sBR, IF OFL IS NOT SET 

6083 067740 052702 000100 BIS @OFL ,R2 sSET OFL IN EXPECTED 


6084 067744 052702 000200 3208: BIS @SSR RO sSET UP EXPECTED 


TSVS - HAROWARE OM1115 06-FEB- 7:14 
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6085 067750 020201 CMP R2,R1 sIS EVERYTHING OK 

6086 067752 001404 BEQ 350% sBR, IF ALL IS WELL 

6090 067754 ERRHRD ERRNO, TS8SST,PKTSSR iDEVICE FATAL SSR ——, 1 ee SET 
067754 104456 CSERHRD 
067756 001762 MYORO 1010 
067760 073076 «WORD T38SST 
067762 012046 -WORD PKTSSR 

6091 067764 350%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
067764 104406 TRAP CsCLP1 

6092 067766 PRINTF @T38MS1 sTELL OPERATOR TO TOGGLE SWITCH 
067766 012746 073166 MOV @T38MS1, -( SP) 
067772 012746 000001 MOV #1, -(SP) 
067776 010690 MOV SP ,RO 
070000 104417 TRAP CSPNTF 
070002 062706 000004 ADD 04 ,SP 

6093 070006 PRINTF @TS8MS2 sTELL OPERATOR TO DO *C TO EXIT 
070006 012746 073261 MOV @T38MS2, -( SP) 
070012 012746 000001 MOV @1,-(SP) 
070016 010600 MOV SP ,RO 
070020 104417 TRAP CSPNTF 
070022 062706 000004 ADD 04,SP 

6094 070026 SETPRI OPRIO7 sRAISE THE PRIORITY 
070026 012700 000340 MOV @PRIO7,RO 
070032 104441 TRAP CsSPRI 

6095 070034 005037 071454 CLR TTION2 sASSUME INTERRUPTS ARE ENABLED 

6096 070040 032737 000100 177560 BIT #100 ,aeTTICSR sARE TTI — ON ? 

6097 070046 001005 BNE 720% sBRANCH IF YES 

6098 070050 005237 071454 INC TTION2 sFLAG SET IF INTERRUPTS OFF 

6099 070054 052737 000100 177560 BIS #100, 8eTTICSR sENABLE INTERRUPTS 

6100 070062 012701 000060 7208: MOV @TTIVEC,R1 sSTART OF TTI VECTORS 

6101 070066 011137 071456 MOV (R1), TVSAV2 sSAVE THE CURRENT TTI VECTOR 

6102 070072 012721 070750 MOV #5908 ,(R1)> sSET NEW INTERRUPT ROUTINE 

6103 070076 011137 071460 MOV (R1), TPSAV2 sSAVE THE VECTOR PRIORITY 

6104 070102 012711 000340 MOV @PRIO7,(R1) sUSE PRIORITY SEVEN 

6105 070106 SETPRI @PRIOO sLOWER INTERRUPT BR LEVEL 
070106 012700 000000 MOV @PRIOO,RO 
070112 104441 TRAP CsSPRI 

6106 070114 000240 360%: NOP sALLOW CONTROL C 

6107 070116 005737 002224 TsT INTRECV s0IO0 AN INTERRUPT OCCUR ? 

6108 070122 001001 BNE 3708 sBRANCH IF YES 

6109 070124 000773 BR 360% sWAIT SOME MORE FOR INTERRUPT 

6110 070126 370$; PRINTF @TS8INT s+" INTERRUPT RECEIVED” 
070126 012746 072756 MOV OT38INT, -(SP) 
070132 012746 000001 MOV @1,-(SP) 
070136 010600 MOV SP ,RO 
070140 104417 TRAP CSPNTF 
070142 062706 000004 ADD 04,SP 

6111 070146 016501 000002 MOV TSSRC(RS),R1 sREAD TSSR STATUS 

6112 070152 032701 000100 BIT OOFL ,R1 sCHECK THE OFF-LINE BIT 

6113 070156 001011 BNE 380% sBR, IF ORIVE IS OFF -LINE 

6114 070160 PRINTF @T38ONL s ‘ORIVE IS NOW ON-LINE” 
070160 012746 073006 MOV @T38ONL, -( SP) 
070164 012746 000001 MOV #1, -(SP) 
070170 010600 MOV SP RO 
070172 104417 TRAP CSPNTF 
070174 062706 000004 ADD 04,SP 


6115 070200 000410 BR 3908 sALMOST DONE 


De 
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6116 


6117 
6118 
6119 


070202 
070202 
070206 
070212 
070214 
070216 
070222 
070226 
070232 
070232 
070234 
070236 
070240 
070242 
070244 
070246 


070372 


073325 
177777 


103371 
005737 
001002 
000137 


073042 
000001 


000004 
002224 
067650 


074014 
066722 
015774 


002202 
072170 
010662 


071514 
000004 


002222 


072210 


3808; 


3908: 
2538: 


278: 


4003: 


4108: 


4308: 


PRINTF @T360FL 


CLR 
JMP 
GMANIL 


INTRECV 
300$ 


BNCOMPLETE 25% 


TST T38DAT 

BNE 27s 

JMP 2s 

JSR PC, SOF INIT 

Bcs 400% 

MOV RO,R1 

ERRDF  ERRNO,SFIERR,SFIMSG 
CKLOOP 

MOV UNITN, T380SW 

MOV @T3EPK2 ,R4 

JSR PC,.WRTICHR 

BCS 410$ 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SF IMSG 
CKLOOP 

MOV T3S6BFR+6,R1 

MOV R1,R2 

BIS @BIT2,R2] 

CMP R1,R2 

BEQ 430% 

ERRHRD ERRNO, TS8WRL ,EXPREC 
INC FATFLG 

CKLOOP 


SEQ 223 


s"ORIVE IS NOW OFF-LINE” 


MOV @T380FL, -(SP) 
MOV 01, -(SP) 
MOV P-RO 
TRAP  CSPNTF 
DD 64,SP 
:CLEAR INTERRUPT FLAG 
;TRY AGAIN 
;WAIT FOR OPERATOR TO MOUNT TAPE 
TRAP  C$GMAN 
BR 10000$ 
.WORD  T38DAT 
"WORD TSCODE 
"wORD  138MSG 
«WORD -1 
100008: 
;RETRY IF ERROR 
BCC 253 
;DID OPERATOR SAY ‘YES’ ? 
;BRANCH IF YES 
;RETURN TO MAIN MENU 
300 SOFT INIT OF CONTROLLER 
3BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 
TRAP — CSEROF 
.WORD 1011 
“WORD SFIERR 
[WORD  SFIMSG 
;LOOP IF SELECTED 
TRAP = CSCLP1 
;SET UNIT NUMBER 
;SUBROUTINE NEEDS PACKET ADDRESS 
;ISSUE WRITE CHARACTERISTICS 
:BR, IF COMMAND ISSUED OK 
3SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 
TRAP  § CSERHROD 
.WORD 1012 
"WORD WRTMSG 
"WORD  SFIMSG 
;LOOP IF SELECTED 
CscLP1 


sPICK UP XSTO CONTENTS 

sSET UP EXPECTED 

sSET UP THE WRITE LOCKED BIT 

sARE THEY CORRECT 

sBR, IF ALL IS WELL (OK) 

“WRITE LOCKED BIT IS NOT SET ETC.” 


TRAP CSERHRD 
. WORD 1013 
. WORD T38wWRe 
«WORD EXPREC 
3SET FATAL FLAG 
sLOOP IF SELECTED 
TRAP CsCLPi 


TSvS - yooh 
TEST MANU 


10: 


070374 


TESTS 


EQ 
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002222 


071514 
004000 


066722 


072325 
000001 


000004 
074016 
015774 


002202 
072170 
010662 


072242 435%: MOV 


072210 S00$: MOV 


TST FATFLG 
BEQ 435% 
JMP 2s 
OFREE , T38wWR 
MOV @TSEPK4 ,R4 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS 5),R 
MOV esc !SSRIBITLIBIT2, R2 
CMP R1,R2 
BEQ 4403 
ERRHRD ERRNO, TS8WRT,PKTSSR 
4403: CKLOOP 
MOV T36BFR+6,R1 
MOV R1,R2 
BIS #BIT11,R2 
CMP R1,R2 
BEQ 450$ 
ERRHRD ERRNO, TS8WLE ,EXPREC 
450$: CKLOOP 
JMP es 


SEQ 224 


sWAS THE DRIVE NOT WRITE LOCKED 
sBR, IF FLAG NOT SET 

sRE-WRITE MENU 

sSET UP WRITE BUFFER ADDRESS 

sGET PACKET ADORESS 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

sGET TSSR 

sSET UP EXPECTED 

sARE THEY EQUAL (CORRECT) 

sBR, IF CORRECT STATUS 

:"TSSR INCORRECT AFTER ug COMMAND 


CSERHRD 
«WORD 1014 
“WORD T38WRT 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sREAD XSTO CONTENTS 
sSET UPR EXPECTED 
sSET THE WRITE LOCK ERROR BIT (xSTO) 
sWAS THE BIT SET 

;BR, IF IT WAS (GOOD) 

;"WRITE LOCK ERROR BIT a en 


CSERHRD 
«WORD 1015 
-WORD T38WLE 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


:GO BACK TO MENU 


F FSSASHHEHHEASASESEHSSSESSASEAESESEHHEEEEEEEEHHESEESHEHEOEHEHEADOEEOKEOEEEE 


; SERVO EXERCISER NO LONGER USED 


J FSSHOHSSSSOASSHSSOHESHEHODEEASEEEEHEEEEEEOFEOEEEOEEEOEEEEEEHEEEKEOEOREDE 


30$: 
PRINTB @T38MS3 


JSR PC, T38REST 
JSR PC, SOF INIT 
BCS 500$ 

MOV 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T380SW 
MOV @TS8PK2 ,R4 
JSR PC, ,WRICHR 
BCS 510% 


MOV RO,R1 
ERRHRD ERRNO,WRIMSG, CF IMSG 


3"EXE ANY OTHER MENU a TO STOP 


rete -(SP) 


a #1, -¢ 
MOV SP ,RO 
TRAP CSPNTB 
ADD 04,SP 

sSET PACKET TO INITIAL VALUES 

s00 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 1016 
-WORD SFIERR 
-WORD SFIMSG 


sSET UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADORESS 
sISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


TSVS 


- HARDWARE 
TEST 10: MANUAL 


070746 


070750 
070752 
070756 
070762 
070766 
070770 
070776 
071002 
071010 
071016 
071024 
071032 
071036 
071042 
071050 
071054 


TEST 


112737 
112737 
012704 
010465 
004737 
103405 
010001 


104455 
001772 
072666 
012046 


012711 


012700 
104441 
000240 
000776 


016501 
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000000 
000020 
071470 
000000 


016336 


071501 
071500 


177560 


177560 


000002 


000060 
000062 
071500 
071501 


071462 


5108: 


550$: 


5553: 


5603: 


CKLOOP 
SETPRI 


SETPRI 


NOP 
BR 


#0, T38BS1 
#20, T38BSO0 
@TSEPACKET ,R4 
R4, TSOBCRS) 
PC,CHKTSSR 
550% 


RO,R1 
ERRNO, T38SSR,PKTSSR 


@PRIO7 


TTION2 
#100, 8¢eTTICSR 
S55$% 


TTION2 

#100, 8eTTICSR 
@TTIVEC,R1 
(R1), TVSAV2 
@590$,(R1)+ 
(R1), TPSAV2 
@PRIO7,(R1) 
@PRIOO 


560$ 


3° 
sPROCESS CONSOLE INTERRUPTS 


5908: 


592%: 


RO, -(SP) 
SOTTIBFR,RO 
#200 ,RO 
#15,R0 


5918 
2% ,2(SP) 
4(SP) 


SEQ 225 


sCLEAR BIT 04 


sEXECUTE DRIVE TEST 22 


CSERHRD 
1017 
WRTMSG 
SF IMSG 


sSET UP NEW WRT. SUBSYS MEM. COMMAND 


sSET THE PACKET ADORESS 


sWAIT FOR SSR TO SET 


sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR — 


- WORD 
. WORD 


. WORD 
sLOOP ON ERROR, IF FLAG SET 


sRAISE THE PRIORITY 


sBRANCH IF YES 


TRAP 


MOV 


TRAP 
sASSUME INTERRUPTS ARE ENABLED 
sARE TTI INTERRUPTS ON ? 


SFLAG SET IF INTERRUPTS OFF 


sENABLE INTERRUPTS 


sSTART OF TTI VECTORS 


sSAVE THE CURRENT TTI VECTOR 
sSET NEW INTERRUPT ROUTINE 
sSAVE THE VECTOR PRIORITY 


sUSE PRIORITY SEVEN 


sLOWER INTERRUPT BR LEVEL 


sLOOP AWHILE 


sSTAY IN “TIGHT” LOOP 


sSAVE WORK REGISTER 


sGET THE OPERATOR INPUT 
sSTRIP OFF PARITY BIT 


MOV 
TRAP 


sIS IT A CARRIAGE RETURN ? 


sJUST EXIT IF NOT 


sRETURN TO MASTER MENU 


sFORCE PRIORTY O 


TVSAV2 ,@@TTIVEC ;RESTORE VECTOR 


TPSAV2 , BOTTIVEC +2 
#25, 1T38BS0 

#0, 1T38BS1 
@TSBPACKET ,R4 

R4, TSOBCRS ) 
#65000. , T38DLY 

PC ,WAITF 
TSSRCRS),R1 


sRESTORE SUPER PRIORTY 


sSTOP ORIVE TEST 22 
sCLEAR BS1 


CSEROF 
1018 

T38SSR 
PKTSSR 


CsCLP1 


@PRIO7,RO 
CsSPRI 


@PRIOO,.RO 
CsSPRI 


sSET UP NEW WRT. SUBSYS MEM. COMMAND 


sSET THE PACKET ADDRESS 
sSET UP DELAY COUNTER 


:00 A WAIT FOR SSR 


sCONTENTS OF TSSR REGISTER 


TSVS - HARDWARE 
MANUAL 


TEST 10: 


071060 
071064 
071066 
071066 
071072 
071074 
071100 
071102 
071106 
071110 
071114 
071116 
071122 
071124 


INTERVENT 


032701 
001017 


012727 
000000 
013727 
000000 


104406 
012701 
012702 


010221 
022701 


000200 


000250 
002116 
177772 
177756 
071462 
016336 


071454 
000100 


074016 
015774 


071506 
125252 


072162 


002202 
072170 
010662 


5958: 


580$: 


177560 
S918: 


353: 


600$: 


601%: 


072210 605%: 
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MOV 
ERRHRD 


Ge 


@SSR,R1 
S95$ 
250 


T380LY 
592$ 
PC,.CHKTSSR 
580$ 


RO,R1 
ERRNO, T38SSR,PKTSSR 


TTION2 

591$ 

#100 ,aeTTICSR 
CSP )+,RO 


PC, T38REST 
PC, SOF INIT 
600$ 


RO,R1 
ERRNO, SF TERR, SF IMSG 


OT38BFR,R1 
#125252 ,,R2 


R2,(R1)+ 
@T38EB,R1 
605$ 


601% 
UNITN, T380SW 
@T38PK2,R4 


PC,WRICHR 
610% 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


SEQ 226 


sCHECK FOR TSSR SET 
sKEEP GOING IF NOT SET 
sCALL DELAY ROUTINE 


MOV #250,(PC)+ 
. WORD 0 
MOV LSDLY,CPC)+ 
~WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

sBUMP COUNTER DOWN 

36R, IF MORE TIME LEFT 

;WAIT FOR SSR TO SET 

3;B8R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
- WORD 1019 
» WORD T38SSR 
.WORD PKTSSR 

sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

sARE SUPER INTERRUPTS ENABLED 

36R, IF YES 

sRESTORE REGISTER 

sRESTORE REGISTER 

sRETURN 

3SET PACKET TO INITIAL VALUES 

3:00 SOFT INIT OF CONTROLLER 

3BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;sDEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 
WORT 1020 
. WORD SFIERR 
. WORD SF IMSG 


sLOOP IF SELECTED 
TRAP CsCLP1 


R 
sADDRESS OF MESSAGE BUFFER 
sALTERNATING 1'S AND O'S 


sCLEAR OUT THE MESSAGE BUFFER 
sENO OF BUFFER YET 

3BR, IF AT END OF BUFFER 

sNOT AT END KEEP GOING 

;SET UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
:8R, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC uh = a 


CSERHRD 
«WORD 1021 
-WORD  WRTMSG 
-WORD SFIMSG 
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071270 
071270 


5 071272 


071300 
071306 
071312 
071316 
071324 
071330 
071334 
071340 
071342 
071342 
071346 
071350 
071354 
071356 
071362 
071364 
071370 
071372 
071376 
071400 
071404 
071406 
071410 
071410 
071412 
071414 
071416 
071420 
071420 
071422 
071426 
071430 
071434 
071440 


071444 
071450 
071450 
071452 


071454 
071456 
071460 


He 
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104406 
112737 
112737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 


012727 
000000 


000000 
000024 
071470 
000000 
000144 
016250 
000002 
000200 
000250 
002116 
177772 
177756 
071462 


016336 


071526 
003134 


074054 
066722 


00C200 


071501 
071500 


071462 


6108: CKLOOP 
MOVB 00,T38B8S1 
MOVB #24 ,1T38BS0 
MOV @TSBPACKET ,R4 
MOV R4, TSOBCRS) 
MOV #100. , T38DLY 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
BIT @SSR,RL 
BNE 630% 
DELAY 250 
DEC T380LY 
BNE 620% 
630$: JSR PC,.CHKTSSR 
BcS 650$ 
MOV RO,R1 
ERRDF ERRNO, T38SSR,PKTSSR 
6503: CKLOOP 
MOV @T36BFR+20,RO 
CLR R1 
CLR K TENABLE 
JSR PC, T38MBP 
JMP es 
63%: JMP 200 
64%; EXIT TsT 


3 
sLOCAL TEXT MESSAGES FOR TEST 
sLOCAL STORAGE FOR THIS TEST 
g° 


:¢ 
sLOCAL STORAGE FOR THIS TEST 
ge 


TTION2: -WORD O 
TVSAV2: .WORD 0 
TPSAV2: .WORD 0 


SEQ 227 


sLOOP IF SELECTED 


TRAP 
sCLEAR BIT 04 
sREAD EXTENDED DRIVE STATUS 
sSET UP NEW WRT. SUBSYS MEM. COMMAND 
sSET THE PACKET ADDRESS 
sSET UP DELAY ROUTINE 
sWAIT AWHILE FOR SSR TO SET 
sSEE IF IT REALLY DID 
sJUST CHECK THAT BIT 
sB8R, IF SSR IS SET 
sDELAY ABOUT .25 SEC 


CsCLP1 


MOV #250,(PC)+ 
-WORD O 
MOV LSDLY,CPC)+ - 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22¢PC) 
BNE .-20 
sSTART DELAY COUNT DOWN 
sBR, IF COUNTER IS NOT AT DONE 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 1022 
«WORD T38SSR 
-WORD PKTSSR 
s;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sMESSAGE BUFFER ADDRESS 

sNO HIGH ORDER ADDRESS BITS 

sNO KT11 STUFF EITHER 

3GO PRINT MESSAGE BUFFER CONTENTS 
3GO BACK TO MENU 


sREALLY RETURN TO THE SUPERVISOR 
sLEAVE TEST ain 


. WORD 


CsExIT 
L10075-. 


sWORD SET IF SUPERVISOR TTI INTER OFF 


sSAVE TTI VECTOR 
sSAVE TTI PRIORITY 


TEST 


Te 
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10: MANUAL INTERVENTI 
6339 
6340 071462 000000 TSBOLY: .WORD 0 :DELAY COUNTER FOR TEST 
6342 071470 . #10>€177770 
6344 071470 T38PACKET: sCOMMAND PACKET FOR TES? 
6345 071470 140006 .WORD 140006 :WRITE SUBSYSTEM MEM. CMD, ACK,CVC#1 
6346 071472 071500 -WORD T38TAD sADORESS OF CHARACTERISTICS BLOCK 
6347 071474 000000 .WORD 0 
6348 071476 000012 .WORD 10. sSTARTING VALUE OF BLOCK SIZE 
6349 071500 T38TAD: :CHARACTERISTICS DATA BLOCK 
6350 071500 000 T38B8S0: .BYTE 0 sBSELO BYTE 
6351 071501 000 T38BS1: .BYTE 0 ;BSEL1 BYTE 
6352 071502 000000 T38BS2: .WORD 0 :BSEL1 WORD 
6353 071504 000000 .WORD 0 sDATA 
6354 071506 T38BFR: .BLKW 150. sMESSAGE BUFFER 
6355 072162 000000 T38EB: .WORD END OF BUFFER ADDRESS 
6357 
6359 072170 .*¢, 106177770 
6361 072170 T38PK2: ;COMMAND PACKET FOR TEST 
6362 072170 140004 .WORD 140004 ;WRITE CHARA. MEM. CMND., ACK,CVC=1 
6363 072172 072200 .WORD T38DTA sADDRESS OF SELECT DATA BLOCK 
6364 072174 .WORD 0 
6365 072176 00012 -WORD 10, _ ;STARTING VALUE OF BLOCK SIZE 
6367 
6368 072200 T38DTA: ;SELECT DATA BLOCK 
6369 072200 071506 .WORD T38BFR . sADDRESS OF MESSAGE BUFFER 
6370 072202 .WORD 0 
6371 072204 000400 .WORD 256. ;LENGTH OF MESSAGE BUFFER 
6372 072206 000000 T38EAI: .WORD 0 sEAI BIT WORD 
6373 072210 000000 T380SW: .WORD 0 :ORIVE SELECT WORD ETC 
6375 072220 =<, +10>€177770 
6377 072220 140212 T38PK3: .WORD 140212 sMESSAGE BUFFER RELEASE COMMAND 
6378 072222 000000 .WORD 0 ;NOT USED 
6379 072224 000000 -WORD 0 ;NOT USED 
6380 072226 000000 .WORD 0 ;NOT USED 
6381 072250 000000 .WORD 0 ;NOT USED 
3 
6383 ;WRITE TAPE PACKET 
6384 : 
6386 072240 .*<,¢10>€177770 
6388 072240 140005 T38PK4: .WORD 140005 ;WRITE, ACK, CVC#1 COMMAND 
6389 072242 000000 T38WR: .WORD 0 sADDRESS OF WRITE BUFFER 
6390 072244 000000 .WORD 0 :MORE ADDRESS OF WRITE BUFFER 
6391 072246 000400 T38SIZ: .WORD 256. 3SIZE OF RECORD 
6393 
6394 
6395 
6396 1° 
6397 ;LOCAL TEXT MESSAGES FOR TEST 
6398 ” 
6399 
6400 
6401 
6402 
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6404 072250 123 164 
6405 072325 045 116 
6406 072420 124 123 
6407 072504 127 122 
6408 072545 127 122 
6409 072612 127 122 
6410 072666 103 157 
6411 072756 045 116 
6412 073006 045 116 
6413 073042 045 116 
6414 073076 103 157 
6415 073166 045 116 
6416 073261 045 116 
6417 073325 111 163 
6418 073365 115 141 
6419 
6420 073412 073436 073510 
6421 073426 073705 073750 
6422 
6423 073436 012 123 
6424 073510 O12 011 
6425 073536 011 061 
6426 073570 011 062 
6427 073623 011 063 
6428 073657 011 064 
6429 073705 011 065 
6430 073750 011 066 
6431 074013 000 
6432 
6433 
6434 
6435 
6436 
6437 
6438 074014 000000 
6439 074016 
6440 074016 
6441 074022 012701 071470 
6442 074026 012721 140206 
6443 074032 012721 071500 
6444 074036 005021 
6445 074040 012721 000006 
6446 074044 005021 
6447 074046 005021 
6448 074050 005011 
6449 074052 000207 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
6460 


073536 
074013 


T38NE: .ASCIZ 
T38MS3: . 


MIMENU: .WORD 


3¢ 
sLOCAL STORAGE 
3 = 


T38DAT: 
T38REST: 


- WORD 


3¢ 


Je 


SEQ 229 


' Stand-alone Manual Intervention Not Executed’ 

'SNSA Type <RETURN> To Stop Servo Exerciser, Return To Menu’ 
‘TSSR Not Correct After WRITE, With WRITE PROTECT On’ 
‘WRITE LOCKED Bit Not Set In xSTO' 

‘WRITE LOCK ERROR Bit Not Set In XSTO’ 


‘WRITE SUBSYSTEM MEMORY 


Command Not Accepted’ 


‘Contents of TSSR Incorrect After WRITE *SusSYSTEM MEMORY’ 
‘SNSA Interrupt Received’ 
‘SNSA Drive Is Now ON-LINE’ 


‘SNSA Drive Is Now 


OF F -LINE' 


‘Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE’ 


* sSNSAT 


oggle ON-LINE Switch to Generate ATTENTION Interrupts’ 


‘SNBAType RETURN To Return To MenusN’ 
‘Is Write-Protected Tape Mounted’ 
‘Manual Intervention’ 


1$,2$,3%,4%,5$,6$ 


8$,9%,10%,0 


“sss ss a 
OUSwwyro 


FOR THIS TEST 


0 


@T38PACKET ,R1 
#140206,(R1)+ 
@T38TAD,CR1)+ 


—s OPERATION FROM FOLLOWING OPTIONS: ’ 


Display This Menu’ 

Turn On All M7196 LED’'s' 

Turn Off All M7196 LED''s 

Of Fline/Online hevention* 

Write Protect Test’ 

Print Extended Transport Status’ 
Return to Diagnostic Supervisor’ 


sLOGICAL RESPONSE TO QUESTION 


;SAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK,CVC-1 
sADDRESS OF DATA BLOCK 

sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 

;CLEAR BSELO AND BSEL1 

;CLEAR SEL2 

;CLEAR DATA AREA 

;RETURN 


° 
sTHIS ROUTINE PRINTS THE CONTENTS OF 
sTHE 256 BYTE MESSAGE BUFFER RETURNED BY THE 


3TSV-O5. 


3 

; INPUT: 

3 

; RO 


LOW ORDER ADDRESS OF MESSAGE BUFFER 


Ke 


TSVS - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 SEQ 230 
TEST 10: MANUAL INTERVENTI 

6461 ’ Ri HIGH ORDER ADDRESS OF MESSAGE BUFFER 

cast Hy NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 

6 ; 

6464 3 

6465 3- 

6466 

6467 074054 T38MBP 

6468 074054 SAVREG sSAVE THE REGISTERS 

6469 074060 010005 MOV RO,RS ;SAVE LOW ORDER ADDRESS 

6470 074062 005737 003134 TST K TENABLE sADDRESS ABOVE 28K? 

6471 074066 001001 BNE 910% 3;6R IF YES 

6472 074070 005001 CLR R1 :SET HIGH ORDER ADDRESS TO 0 

6473 074072 010103 9108: MOV R1,R3 sSAVE HIGH ORDER ADDRESS 

6474 074074 006100 ROL RO sSHIFT BIT15 TO C BIT 

6475 074076 006101 ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 

6476 074100 PRINTX @T38ASO,R1,R5 sPRINT MESSAGE BUFFER ADDRESS 
074100 010546 MOV RS, -CSP) 
074102 010146 MOV R1,-CSP) 
074104 012746 074356 MOV @T38ASO, - (SP) 
074110 012746 000003 MOV 03,-CSP) 
074114 010600 MOV SP ,RO 
074116 104415 TRAP CSPNTX 
074120 062706 000010 ADD #10,SP 

6477 074124 PRINTX @T38AS1 sPRINT HEADER FOR CONTENTS 
074124 012746 074423 MOV #T38AS1, -C(SP) 
074130 012746 000001 MOV #1,-CSP) 
074134 010600 MOV SP ,RO 
074136 104415 TRAP CS$PNTX 
074140 062706 000004 ADD 4,SP 

6478 074144 010501 MOV RS,R1 sCOPY LOW ORDER ADDRESS 

6479 074146 010300 MOV R3,RO ;COPY HIGH ORDER ADDRESS 

6480 074150 001403 BEQ 913% 38R IF NOT ABOVE 28K 

6481 074152 004737 017316 JSR PC,SETMAP sSETUP PAR ADORESS IN RO 

6482 074156 010005 MOV RO,RS ;GET PAR FORMAT ADDRESS ABOVE 28K 

6483 074160 010537 074524 913%: MOV RS, — sHOLD ADDRESS 

6484 074164 011504 911$: MOV CRS5),R 3;GET BUFFER ENTRY 

6485 074166 022704 125252 CMP 9129352, R4 sCHECK FOR NO LOAD “artes 

6486 074172 001417 BEQ 912$ 36R, IF BUFFER WASN’ T LOADED 

6487 074174 010403 MOV R4,R3 iMAKE COPY 

6488 074176 042704 170377 BIC 0170377,R4 sONLY BITS 11,10.9 AND 8 ARE SAVED 

6489 074202 000241 cLc sCLEAR CARRY 

6490 074204 006004 ROR R4 311 TO 10 BIT POSITION 

6491 074206 006004 ROR R4 310 TO 9 BIT POSITION 

6492 074210 006004 ROR R4 39 TO 8 BIT POSITON 

6493 074212 006004 ROR R4 38 TO 7 BIT POSITION 

6494 074214 042703 177760 BIC #177760,R3 sONLY BITS 3,2.1 AND O ARE SAVED 

6495 074220 060403 ADD R4,R3 ;"OR‘'EM TOGETHER 

6496 074222 010325 MOV R3,CRS)> sPUT BACK IN BUFFER 

6497 074224 020527 072162 CMP RS,@T38EB sEND OF BUFFER YET 

6498 074230 001355 BNE 911% :68R, IF NOT AT END YET 

6499 074232 013705 074524 912%: MOV T38CNT,RS sPUT ADDRESS BACK 

6500 074236 012704 000001 MOV #1,R4 sSTART BYTE NUMBER AT ONE 

6501 074242 915$: PRINTX @T38ASN,R4,(R5)>+ ;PRT MEM BUFFER W/NEWL INE 
074242 012546 MOV ed aa 
074244 010446 MOV R4,-CSP) 
074246 012746 074500 MOV eT38ASN, - (SP) 


074252 012746 000003 MOV #3, -CSP) 


TSVS - HARDWARE 
TEST 10: 


6502 
6503 
6504 


MANUAL 


074256 
074260 
074262 
074266 
074272 
074274 
074274 
074276 
074300 


074524 
074526 
074526 
074526 


Le 


TESTS _ MACRO M1113 06-FEB-84 17:14 SEQ 231 
INTERVENTI 
010600 MOV SP ,RO 
104415 TRAP CSPNTX 
062706 000010 ADD #10,SP 
005037 074524 CLR T38CNT sCLEAR COUNTER 
000412 BR 921$ sSKIP OTHER PRINT 
9208: PRINTX @T38ASC,R4,(RS)+ sPRINT THE CONTENTS OF MEMORY BUFFER 

012546 MOV CR5)+,-CSP) 
010446 MOV R4, -C SP) 
012746 074461 MOV @T38ASC, -CSP) 
012746 000003 MOV @3,-(S 
010600 MOV SP ,RO 
104415 TRAP CSPNTX 
062706 000010 ADD #10,SP 
005237 074524 9218: INC — sBUMP COUNTER 
005204 INC sNUMBER OF THE NEXT 
020427 000200 CMP Ra, #128. sD0NE ALL YET ? 
003010 BGT 50$ sBRANCH IF ALL DONE 
023727 074524 000004 CMP T38CNT , 04 ;DONE FOUR YET 
001401 BEQ 925$ 36R, IF THREE DONE 
000753 BR 920$ sKEEP GOING 
005037 074524 925$: CLR T38CNT ;CLEAR COUNTER 
000733 BR 915$ sPRINT WITH NEW LINE 
000207 50$: RTS PC sRETURN 

045 116 045 T38ASO: .ASCIZ ‘sNSA Message Buffer Address = #01805’ 

045 116 045 T38AS1: .ASCIZ ‘sSNA Message Buffer Contents:’ 

045 101 040 T38ASC: .ASCIZ ‘SA SD48A; 803’ 

045 116 045 T38ASN: — ‘SNSA BytesD4sA: 803° 
000000 T38CNT: .WORD ;COUNTER FOR PRINT 

ENOTST 
L10075: 

104401 TRAP CsETST 


-SBTTL TEST 11: CONFIGURATION TYPEQUT 


;THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 

3; THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
;THE FOLLOWING INFORMATION IS PRESENTED: 

i 


6 
3 1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON CEXTENDED 
FEATURES ENABLED) OR OFF CEXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


© MICROCODE REVSION LEVEL OF THE M7196, 

.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

O UNIT SELECT CODE AND STATE CONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 


FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 


vu ff} w 


THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 


Me 


TSVS - HARDWARE TEST RO.M1113 06-FEB-84 17:14 
TEST 117 CONFIGURATION TYPEGUT 17:1 SEQ 232 

6547 ;THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 

6548 ;THAT IT “SEES” TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 

6549 ;THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE 

6550 ;CAUSE (BAD CABLE, FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC. ). 

6551 :(SINCE THE CONTROLLER CAN ONLY ACCESS UNIT 0 IF IT IS IN “STANDARD” 

6552 ;MODE, THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 

6353 WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS. ] 

H 

6555 : 

6556 ;THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 

6557 ;DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 

6558 ;SELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 

6339 ;REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 

; 

6561 074530 BGNTST 
074530 Til: 

6566 074530 RFLAGS RO :GET OPERATOR FLAGS 
074530 104421 TRAP —- C$RFLA 

6567 074532 001403 BEQ 10% :8R, IF OK TO RUN 

6568 074534 012700 076523 MOV @T3ONE,RO ;"TEST NOT EXECUTED” 

6569 074540 000402 BR 118 ;JUMP OUT OF TEST IF NOT 

6570 074542 012700 077652 10$: MOV @TST39ID,RO ;TEST ID MESSAGE 

6571 074546 004737 016510 11$: JSR PC, TSTSETUP ;00 THE COMMON SETUP 

6572 074552 004737 020500 SR PC! CHKMAN ;IS MANUAL INTERVENTION ALLOWED? 

6573 074556 103402 BCS 208 BR, IF MANUAL INTERVENTION ALLOWED 

6574 074560 000137 075740 JMP 64$ ; JUMP TO OUT IF NOT 

6575 074564 208: 

6576 074564 004737 015774 JSR PC, SOFINIT ;00 SOFT INIT OF CONTROLLER 

6577 074570 103405 BCS 253 ;8R IF SOFT INIT = OK 

6581 074572 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6582 074574 ERRDF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
074574 104455 TRAP CSEROF 
074576 002115 .WORD 1101 
074600 003652 "WORD  SFIERR 
074602 012034 ‘ SFIMSG 

6583 074604 25$:  CKLOOP ;LOOP IF SELECTED 
074604 104406 TRAP  C$CLP1 

6584 074606 013737 002202 076470 MOV UNITN, T39DSW ;SET UNIT NUMBER 

6585 074614 012704 076450 MOV @T39PK2.R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

6586 074620 004737 010662 JSR PC .WRTCHR ;ISSUE WRITE CHARACTERISTICS 

6587 074624 103405 BCS 503 BR, IF COMMAND ISSUED OK 

6591 074626 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6592 074630 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
074630 104456 TRAP  CSERHRD 
074632 002116 .WORD 1102 
074634 005056 "WORD WRTMSG 
074636 012034 "WORD  SFIMSG 

6593 074640 50$:  CKLOOP ;LOOP IF SELECTED 
074640 104406 TRAP — CSCLP1 

6594 074642 013701 076000 Mov T39BFR+12,R1 ;GET xST2 STATUS FROM MESSAGE BUFFER 

6595 074646 PRINTX @T39SFS ;"STATE OF EXTENDED FEATURES SW =“ 
074646 012746 077371 MOV @T39SFS, -(SP) 
074652 012746 000001 MOV #1, -(SP) 
074656 010600 MOV SP RO 
074660 104415 TRAP ——- C$PNTX 
074662 062706 000004 ADD @4,SP 


6596 074666 032701 000200 BIT OBIT7,R1 sCHECK STATE OF E.F.S. 
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6597 
6598 


6599 
6600 


6601 


6602 
6603 
6604 


074672 
074674 
074674 
074700 
074704 
074706 
074710 
074714 
074716 
074716 
074722 
074726 
074730 
074732 
074736 
074736 
074742 
074746 
074750 
074752 
074756 


075116 


001011 


012746 
012746 


012746 


012746 


042701 
010137 


013746 
012746 


MACRO M1113 06-FEB-84 17:14 
TYPEOUT or 


077515 
000001 


000004 


077524 
000001 


000004 


077443 
000001 


000004 
000100 
077515 
000001 
000004 
077524 
000001 


000004 
177700 
077610 


077610 
077533 
000002 


000006 
015774 
002202 


076450 
010662 


076470 


100$: 


110$: 


1208: 


130$: 


140$: 


BNE 
PRINTX 


BR 
PRINTX 


PRINTX 


BIT 
BNE 
PRINTX 


BR 
PRINTX 


BIC 
MOV 
PRINTX 


Ne 


100$ 
@T390FF 


110$ 
@T390N 


@T39SBS 


#BIT6,R1 
O$ 


130$ 
@T390N 


#177700,R1 
R1, TS9RL 
®TS9OMCL , TS9RL 


PC, SOF INIT 
140$ 


RO,R1 
ERRNO, SFIERR,SFIMSG 


UNITN, T390SW 
@T39PK2 ,R4 
PC, WRTCHR 


SEQ 233 


sB8R, IF EXT. FEA. SW. IS ON 
a” OFF” 


AD 
;SKIP OTHER PRINT STATEMENT 
” ON “ 


ADD 
sCHECK STATE OF BUFFERING SW 
+y* A BUFFERING IS ON 
: oo o 


ADO ia 
sONLY LEAVE MICROCODE REV LEVEL 


;LOAD UP REV LEVEL 


@T390FF ,-CSP) 
#1, -(SP) 

SP RO 

CSPNTX 

@4,SP 


@T390N, -C SP) 
#1,-CSP) 


@T39SBS, -(SP) 
#1, -(SP) 
SP ,RO 


CSPNTX 
04,SP 


@T390FF ,-CSP) 
#1, -(SP) 

SP RO 

CSPNTX 

04,SP 


@T390N, -C SP) 
#1,-CSP) 
SP ,RO 


s "MICROCODE REVISION LEVEL =O00xxx” 


ADD 
:00 SOFT INIT OF CONTROLLER 
;BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR — 


- WORD 
- WORD 


. WORD 
;LOOP IF SELECTED 
TRAP 
;SET UNIT NUMBER 


T39ORL, -CSP) 
@TSOMCL , -CSP) 
@2,-CSP) 


CscCLP1 


;SUBROUTINE NEEDS PACKET ADDRESS 


s ISSUE WRITE CHARACTERISTICS 


B3 
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6621 075122 103405 6cSs 1508 18R, IF COMMAND ISSUED OK 

6625 075124 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6626 075126 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
075126 104456 TRAP CSERHRD 
075130 002120 «WORD 1104 
075132 005056 - WORD WRTMSG 
075134 012034 WORD SF IMSG 

6627 075136 1508; CKLOOP sLOOP IF SELECTED 
075136 104406 TRAP CSCLP1 

6628 075140 005737 002226 TST EXTFEA sCHECK FOR on te on FEATURES SW SWITCH 

6629 075144 001036 BNE 1748 s6R IF SWITCH IS 

6630 075146 112737 000200 075761 MOvB #200, 1739851 sWRITE MISCELLANEOUS CONT/READ STATUS 

6631 075154 112737 000010 075760 MOVB #10, T398S0 sFUNCTION SELECTION BIT (TURN ON EXTFEA Hw SWITCH) 

6632 075162 012704 075750 MOV @TSOPACKET ,R4 sWRITE SUBSYS MEM PACKET 

6633 075166 010465 000000 MOV R4, TSOBC(RS) s ISSUE C 

6634 075172 004737 016336 JSR PC ,.CHKTSSR sWAIT FOR SSR 

6635 075176 103405 Bcs 1 . 36R, IF NO ERROR 

6636 075200 010001 MOV RO,R1 sERROR, SAVE TSSR 

6640 075202 ERRHRD ERRNO, TS9ONBA,PKTSSR sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
075202 104456 TRAP CSERHRD 
075204 002121 - WORD 1105 
075206 077225 - WORD T39NBA 
075210 012046 - WORD PKTSSR 

6641 075212 1608: CKLOOP sLOOP IF SELECTED 
075212 104406 TRAP CsCLP1 

6642 075214 012704 076450 MOV OTS9PK2 ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

6643 FSSSSHANSSSHSHSHASHEHSSSSSHSEHHESHESHEESHEHEESOHSEASESEHESSHESEHEHEHESEHEEOESE 

6644 3 

6645 sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 

6646 3 

6647 FSSSSHSHHSSHHASSSASHASHHASHASSEHESEHESSOHHHSESEHSEEHEHAEEHEHESEHEEOEOEEEEEEOEE 

6648 

6649 075220 004737 010662 JSR PC,WRICHR sISSUE WRITE CHARACTERISTICS 

6650 075224 103405 BCS 1708 38R, IF COMMAND ISSUED OK 

6654 075226 010001 MOV RO,R1 3 SAVE CONTENTS OF TSSR 

6655 075230 ERRHRD ERRNO, WRIMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
075230 104456 TRAP CSERHRD 
075232 002122 WORD 1106 
075234 005056 «WORD WRTMSG 
075236 012034 . WORD SF IMSG 

6656 075240 1708: CKLOOP sSCOPE LOOP 
075240 104406 TRAP CsCLPL 

6657 075242 005037 002202 1748: CLR UNITN sSET TO DRIVE O 

6658 075246 013737 002202 076470 175%: MOV UNITN, T390SW sSET UNIT NUMBER 

6659 075254 012704 076450 MOV @T3S9PK2 ,R4 sSUBROUTINE NEEDS PACKET ADORESS 

6660 075260 004737 010662 JSR PC, WRICHR sISSUE WRITE CHARACTERISTICS 

6661 075264 103405 BCS 180% 38R, IF COMMAND ISSUED OK 

6665 075266 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6666 075270 ERRHRD ERRNO, WTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
075270 104456 TRAP CSERHRD 
075272 002123 WORD 1107 
075274 005056 WORD WRTMSG 
075276 012034 . WORD SF IMSG 

6667 075300 1803; CKLOOP sLOOP IF SELECTED 

ance 075300 104406 TRAP CSCLP1l 


6669 075302 016501 000002 190%; MOV TSSRCRS),R1 sGET TSSR STATUS 
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6670 075306 032701 000100 
6671 O75312 001414 
6672 075314 

013746 


075320 012746 


6673 075340 
6674 075344 


012746 


012746 


6679 075426 


012746 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
001367 
005337 
001352 
004737 


000250 
002116 
177772 
177756 
075744 
016336 


6692 075562 
6693 075566 
6694 075570 


2008; 


2108: 


076066 2208: 
075761 
075760 


075744 
2228; 


2258: 
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BIT 
BEQ 
PRINTX 


JMP 
PRINTX 


MOV 
BIT 


BNE 
PRINTX 


BR 
PRINTX 


we. 


@OFL ,R1 
200% 
@T390F 2,UNITN 


250% 
@T390N2,UNITN 


T39BFR+6,R1 
eBIT2,R1 


2108 
@T3S9WPN,UNITN 


220% 
@TSOWRT ,UNITN 


#125252, T39BFR+100 
#0, 17398S1 

024, T398S0 
@TSOIPACKET ,R4 

R4, TSOBCRS) 
#100. , T39DLY 

PC ,WAITF 
TSSRCRS),R1 


TS9OLY 
2228 
PC, CHKTSSR 


SEQ 235 


sCHECK FOR OFF-LINE 
s6R, IF ORIVE IS ON-LINE 
s"DRIVE NUMBER XxX IS OFF-LINE” 


ADD 
s00 NOT TRY TO GET ANYMORE INFO. 


s"DRIVE NUMBER Xx IS ON-LINE” 


AOD 
sREAD EXTENDED STATUS (XxSTO) 
sIS ORIVE WTITE PROTECTED 
sBR, IF WRITE PROTECTED 
:"DRIVE NUMBER IS NOT WRT PRO” 


sSKIP OVER 
:"ORIVE NUMBER Xx IS WRT PRO” 


ADD 
sSET 1 LOC TO KNOWN VALUE 
sEXTENDED TAPE STATUS 
sEXTENDED TAPE STATUS 
sWRITE SUBSYS MEM PACKET 
s ISSUE COMMAND 
sSET UP DELAY ROUTINE 
sWAIT AWHILE FOR SSR TO SET 
;SEE IF IT REALLY DID 
sJUST CHECK THAT BIT 
:BR, IF SSR IS SET 
sDELAY ABOUT .25 SEC 


sSTART DELAY COUNT DOWN 
sBR, IF COUNTER IS NOT AT DONE 
sWALT FOR SSR 


UNITN, -(SP) 


UNITN, -(SP) 
@2, -(SP) 

SP RO 
CSPNTX 
®6,SP 


UNITN, -(SP) 
@T3OWRT, -(SP) 


rials 
- aaah 
-6(PC) 
oe 
-22¢PC) 

-20 


D3 


T - HARDW M -F ° ° 
Test in CRRA PEUAAT TON rYBEBG HLS 06 -FEB-64 17:14 SEQ 236 

6695 075574 103405 ecs 2308 s8R, IF NO ERROR 

6696 075576 010001 MOV RO,R1 JERROR, SAVE TSSR 

6700 075600 ERRHRD ERRNO, TS9NBA,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
075600 104456 TRAP CSERHRD 
075602 002124 WORD 1108 
075604 077225 WORD T39NBA 
075606 012046 .WORD PKTSSR 

67091 075610 230%: CKLOOP ;LOOP IF SELECTED 
075610 104406 TRAP CsCLP1 

6702 075612 023727 076066 125252 CMP T39BFR+ 100, 0125252 s0ID LOC GET OVER WRITTEN 

6703 075620 001013 BNE 240 :8R, IF IT DIDN’ T GET ETC. 

6704 075622 PRINTX oTS9ETN, UNITN :"DRIVE DOESN'T HAVE EXT TAPE STATUS 
075622 013746 002202 MOV UNITN, -(SP) 
075626 012746 076671 MOV OT39ETN, -(SP) 
075632 012746 000002 MOV @2,-(SP) 
075636 010600 MOV SP .RO 
075640 104415 TRAP CSPNTX 
075642 062706 000006 ADD 06,SP 

6705 075646 000412 BR 2508 sSKIP OVER 

6706 075650 240%: PRINTX @T39ETS,UNITN ;"DRIVE HAS EXT TAPE STATUS“ 

075650 013746 002202 MOV UNITN, -(SP) 
075654 012746 076602 MOV OT39ETS, -(SP) 
075660 012746 000002 MOV e2,-(SP) 
075664 010600 MOV SP .RO 

075666 104415 TRAP CSPNTX 
075670 062706 000006 ADD 06.SP 

6707 075674 005237 002202 2508: INC UNITN ;BUMP DRIVE NUMBER 

6708 075700 023727 002202 000003 CMP UNITN, 03 _ gAT END OF DRIVES YET 

6709 075706 001402 BEQ 63$ :B8R, IF NO MORE DRIVES 

6710 075710 000137 075246 UMP 1758 300 NEXT DRIVE 

6711 075714 633: PRINTX OT3ONFL :NEW LINE 
075714 012746 076520 MOV @T3ONFL, -(SP) 
075720 012746 000001 MOV 01, -(SP) 
075724 010600 MOV SP .RO 
075726 104415 TRAP CSPNTX 
075730 062706 000004 ADD 04 ,SP 

6712 075734 000137 000200 UMP 200 sRETURN TO SUPERVISOR 

6713 075740 648: EXIT TST sEXIT THIS SECTION = 
075740 104432 TRAP CSExIT 

mean 075742 001736 .WORD 1L10076-. 

3° 

$715 ;LOCAL TEXT MESSAGES FOR TEST 

6717 ; 

6718 sLOCAL STORAGE FOR THIS TEST 

6719 3: 

6720 

6721 075744 000000 T390LY: .WORD 0 sODELAY COUNTER FOR TEST 

6723 075750 .*<,610>E177770 

6725 075750 T3OPACKET: sCOMMAND PACKET FOR TEST 

6726 075750 140006 .WORD 140006 sWRITE SUBSYSTEM MEM. CMD, ACK,CVvC-1 

6727 075752 075760 .WORD  T39TAD sADDRESS OF CHARACTERISTICS BLOCK 

6728 075754 000000 .WORD 0 

6729 075756 000012 .WORD 10. sSTARTING VALUE OF BLOCK SIZE 

6730 075760 T39TAD: ;sCHARACTERISTICS DATA BLOCK 

6731 075760 000 T39BSO: .BYTE 0 ;BSELO BYTE 


6732 075761 000 T398S1: .BYTE 0 sBSEL1 BYTE 


TSVS - HARDWARE TESTS 
CONFIGURATION TYPEOUT 


TEST Ll: 


075762 
075764 
075766 


076450 


076510 
076512 
076514 
076516 


077371 
077443 
077515 
077524 
077533 


076510 
140005 
000000 


000000 
000400 


ca 
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T39BS2: .WORD 0 1BSEL1 WORD 
"WORD 0 sDATA 

T39BFR: :BLKW 150. sMESSAGE BUFFER 
.*<, 6109€177770 <a 

T39PK2; sCOMMAND PACKET FOR TEST 
.WORD 160004 ;WRITE CHARA, MEM. CMND., ACK,CVC*1 
- WORD TS90TA sADDRESS OF SELECT DATA BLOCK 
;WORD 10, sSTARTING VALUE OF BLOCK SIZE 

T39DTA: ;SELECT DATA BLOCK 
- WORD T39BFR sADDRESS OF MESSAGE BUFFER 
[WORD 256. sLENGTH OF MESSAGE BUFFER 

T39EAI: WORD 0 ;EAI BIT WORD 

T390SW: :WORD 0 ;ORIVE SELECT WORD ETC 
. =<, ©10>€177770 

T39PK3: |WORD 140012 ;MESSAGE BUFFER RELEASE COMMAND 
‘WORD O ;NOT USED 

3 

;WRITE TAPE PACKET 

3 
.®<, 610>€177770 

T39PK4:; {WORD 140005 ;WRITE, ACK, CVC#1 COMMAND 

T39WR: [WORD 0 sADORESS OF WRITE BUFFER 
‘WORD 0 ;MORE ADORESS OF WRITE BUFFER 

T39SIZ: .WORD 256. ;SIZE OF RECORD 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


T3SONFL: .ASCIZ ‘sN’ 

T3SONE: .ASCIZ ‘Stand- alone Configuration Typeout Not Executed’ 

T39ETS: .ASCIZ ‘SNBA Extended Tape Status Availiable, Drive Number sD2' 
T39ETN: .ASCIZ ‘SNSA Extended Tape Status NOT Aveiliable, Drive Number sD2’ 
T390F2: .ASCIZ ‘NSA Drive Number SD28A Is Off-Line’ 

T39ON2: .ASCIZ ‘sSNA Drive Number SD2s8A Is On-Line’ 

TSOWRT: .ASCIZ ‘sSNA Drive Number SD28A Is Write Protected’ 

TSOWPN: -ASCIZ ‘sNSA Drive Number #D2sA Is NOT Write venenee 


T39SSR: 


T39SFS: 
T39SBS: 
T390F F ; 
T390N: 
TS9MCL: 


-ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not 


Accep 
-ASCIZ ‘Contents of TSSR Incorrect After WRITE *ousSy STEM MEMORY ' 


-ASCIZ ‘NSA State Of Extended Features Switch 
-ASCIZ ‘NSA State Of Buffering Switch 

-ASCIZ ‘A OFF 

-ASCIZ ‘A ON ' 

-ASCIZ ‘sNBA M7196 Microcode Revision Level 


*#02' 


TSVS - HARDWARE TESTS 
TEST 11: CONFIGURATION TYPEOUT 


077610 


077612 
077614 
077614 
077620 
077624 
077630 
077634 
077636 
077642 
077644 
077646 
077650 


077652 


077700 
077700 
077700 


000000 


000000 


012701 


104401 


F3 
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EVEN 
TSORL: .WORD 0 
-EVEN 
-EVEN 


075750 
140006 
075760 


000006 


157 


156 


3¢ 
sLOCAL STORAGE FOR THIS TEST 
g° 


TSODAT: .WORD 0 ;LOGICAL RESPONSE TO QUESTION 
“ SAVREG ;SAVE THE REGISTERS 
MOV @T39PACKET,R1 ;START OF THE PACKET 


MOV #140006,(R1)+ 
MOV @T39TAD,CR1)+ 


sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1 
sADDRESS OF ole BLOCK 


CLR C(R1)+ sEXTENDED ADDRESS 

MOV @6.,CR1L)+ sSIZE OF DATA BLOCK IN BYTES 
CLR (R1)+ sCLEAR BSELO AND BSEL1 

CLR C(R1)« sCLEAR SEL2 

CLR (R1) sCLEAR DATA AREA 

RTS PC sRETURN 


3¢ 
;LOCAL TEXT MESSAGES FOR TEST 
| ag 
TST39ID: -ASCIZ ‘Configuration Typeout’ 

.EVEN 

ENOTST 

L10076: 
TRAP CsETST 


-SBTTL TEST 12: SCOPE LOOPS 


ae 
* 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 
LOOPS” USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7196 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
“LOOP ON ERROR” OR “LOOP ON TEST (SUBTEST)” FACILITIES DON'T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
mt aye SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 

Vv $ 


CODE SCOPE LOOP 


HELP. PRINT THIS MENU. 

TSBA READ ACCESS 

TSSR READ ACCESS 

INITIALIZE (TSSR WRITE ACCESS) 
TSOB HIGH BYTE WRITE ACCESS 


Punrro 


TSvS 
TEST 


077702 
077702 
077702 
077702 
077704 
077706 
077712 
077714 
077720 
077724 
077730 
077732 
077736 
077742 
077744 
077746 
077746 
077750 
077752 
077754 


- HARDWARE TESTS 
SCOPE LOOPS 
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101275 
101342 
016510 
020500 


100416 
015774 


002226 


101217 
000001 


000004 
077736 


000340 


100426 
000100 177560 


1$: 
100$: 


2s: 


S$: 


3$: 


G3 


SEQ 239 


TSOB LOW BYTE WRITE ACCESS 

TSDB MAINTENANCE -MODE WORD WRITE ACCESS 

TSDBX (TSSR HIGH BYTE) WRITE ACCESS 
CEXTENDED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 

8 EXIT CRETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. 


NOU 


TYPING <RETURN> CAUSES 


AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


BGNTST -_ 

RFLAGS RO ;GET OPERATOR FLAGS 
TRAP CSRFLA 

BEQ 1$ sBR, IF OK TO RUN 

MOV @T40NE ,RO s“TEST NOT EXECUTED” 

BR 100$ sJUST EXIT IF NOT 

MOV @TST40ID,RO sTEST ID MESSAGE 

JSR PC, TSTSETUP :00 THE COMMON SETUP 

JSR PC, CHKMAN ;SEE IF MANUAL INTERVENTION ALLOWED 

BCS es sCARRY SET IF INTERVENTION ALLOWED 

JMP 64% sEXIT IF NO MANUAL INTERVENTION 

JSR PC, SOF INIT :00 A SOFT INIT 

BCS S$ sBRANCH IF OK 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG sREPORT FATAL ERROR 
TRAP CSERDF 
«WORD 1201 
-WORD SFIERR 
-WORD  SFIMSG 

MOV @SCMENU ,RO sMENU OF SCOPE LOOP SELECTIONS 

MOV 08. ,R1 sMAXIMUM ALLOWED SELECTION 

JSR PC ,GETSEL sGO GET THE OPERATORS SELECTION 

TST RO sWAS ZERO SPECIFIED ? 

BEQ 2s sREPEAT MENU IF YES. 

CMP RO,07 sEXTENDED TSSR ? 

BNE 3$ ;BRANCH IF NOT 

TST EXTFEA sCHECK FOR EXTENDED FEATURES SET 

BNE 3% ;BR, IF IT IS ON 

PRINTF @EXFMSG sWARN OPERATOR EXTENDED FEATURES CLEAR 
MOV @EXFMSG, -( SP) 
MOV SP ,RO 
TRAP CSPNTF 

@4,SP 

JMP 2s :GO BACK TO BASIC MENU 

MOV RO,R4 sSAVE THE MENU SELECTION 

SETPRI @PRIO7 sRAISE THE PRIORITY 
MOV @PRIO7,RO 
TRAP CsSPRI 

CLR TTION sASSUME INTERRUPTS ARE ENABLED 

BIT #100, 8@TTICSR sARE TTI INTERRUPTS ON ? 

BNE 4$ sBRANCH IF YES 


TSVS - HARDWARE TESTS 
TEST Ss 


12: SCOPE L 


005237 
052737 
012701 
011137 
Ol2721 
011137 
012711 
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000002 


020174 
000002 


000000 
020174 
000001 


000000 
020174 
000000 


177560 


4$: 


6$; 


10$: 
12$: 


158: 
18$: 


20%: 


22s: 


25%: 


27s: 


308: 


328: 


(R1), TVECSAV 
#60$,(R1)+ 
(R1), TPRISAV 
@PRIO7,(R1) 
@PRIOO 


TSOBCRS) 
C(RS),RO 
les 


@TSSR,R3 
RS,.R 
(R3),RO 
18% 


PC, ed 
RO,R1 
eTssR, R3 
RS,.R3 
R1,(R3) 
22% 


TSOBCRS ) 
PC ,GETPAT 


TSOBCRS ) 
PC ,GETPAT 
RO,R1 
@TSOB,R3 
RS 


SEQ 240 


sFLAG SET IF INTERRUPTS OFF 


sENABLE INTERRUPTS 
sSTART OF TTI VECTORS 


sSAVE THE CURRENT TTI VECTOR 
sSET NEW INTERRUPT ROUTINE 
sSAVE THE VECTOR PRIORITY 


sUSE PRIORITY SEVEN 


sLOWER INTERRUPT BR LEVEL 


MOV 


sCONVERT TO WORD OFFSET 
s JUMP TO PROPER LOOP 
sRETYPE THE MENU 

sTSBA READ ACCESS 

sTSSR READ ACCESS 

sTSSR WRITE ACCESS 


TRAP 


:TSOB HIGH BYTE WRITE ACCESS 
sTSOB LOW BYTE WRITE ACCESS 


3TSOB MAINTENANCE 
sTSOBX WRITE ACCESS 


sLEAVE THE TEST 


sENTER MAINTENANCE MODE 
sREAD TSBA REGISTER 
sLOOP UNTIL HALTED 


sADDRESS OF TSSR REGISTER 
sPOINT TO TSVOS'S REGISTERS 


sREAD TSSR REGISTER 
sLOOP UNTIL STOPPED 


sREAD THE DATA PATTERN 
sDATA PATTERN FOR LOOP 


sADDRESS OF TSS 


sPOINT TO TSVOS‘S REGISTERS 


sWRITE DATA TO TSSR 


;LOOP 


sENTER MAINTENANCE MODE 
sREAD THE DATA PATTERN 
sDATA PATTERN FOR LOOP 
sADDRESS OF HIGH BYTE OF TSOB 


sPOINT TO TSVOS'S REGISTERS 
sWRITE THE DATA TO TSOB, HIGH BYTE 


sLOOP UNTIL STOPPED 


sENTER MAINTENANCE MODE 
sREAD THE DATA PATTERN 
sDATA wg gp hey LOOP 


sADDRESS OF 


sPOINT TO TSVOS‘'S REGISTERS 


sWRITE DATA TO TSSR, LOW BYTE 
sLOOP UNTIL HALTED BY OPERATOR 


@PRIOO ,RO 
C$SPRI 


TSVS - HARDWARE TESTS 


TEST le: 


SCOPE 


100270 
100274 
100276 
100302 
100304 


100306 


100310 
100314 
100316 
100322 
100324 
100326 


100434 


LOOPS 


010113 
000776 


004737 
010001 
012703 
060503 
110113 
000776 


100466 


| 
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020174 35$: JSR PC ,GETPAT 
MOV RO,R1 
000000 MOV es Shale 


37$: MOV R1,(R3) 


BR 37% 
020174 40$: JSR PC, eae 

MOV RO,R1 
000003 MOV @TSSRH, R3 

ADD RS,R3 


423: MOVB R1,(R3) 
BR 42$ 


3? 
sPROCESS CONSOLE INTERRUPTS 
3 - 


60$: MOV RO, -(SP) 


177562 MOVB BeTTIBFR,RO 
000200 BIC #200,RO 
000015 CMPB #15,R0 
BNE 61$ 
077736 000002 MOV #2$,2(SP) 
000004 CLR 4(SP) 
100430 000060 MOV TVECSAV ,@@TTIVEC 
100432 000062 MOV TPRISAV ,OOTTIVEC+2 
100426 TST TTION 
BEQ 61$% 
000100 177560 BIC #100, @@TTICSR 
61%: MOV (SP )+,RO 
RTI 
64%: 
63%: EXIT TsT 
000200 65$; JMP 200 


3¢ 
sLOCAL STORAGE FOR THIS TEST 
= 


TTION: -WORD O 
TVECSAV: -WORD O 
TPRISAV: -WORD O 


3¢ 
sMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 


EVEN 
100541 100567 SCMENU: .WORD 1$,2$%,3%,4$,5%,6% 


SEQ 241 


- sREAD THE DATA PATTERN 


sDATA PATTERN FOR LOOP 
sSELECT TSOB 

sPOINT TO TSVOS‘S REGISTERS 
sWRITE THE DATA PATTERN 


;LOOP UNTIL HALTED 


sREAD THE DATA PATTERN 

sSAVE THE DATA PATTERN 

sBYTE ADDRESS OF TSSR, HIGH BYTE 
sPOINT TO TSVOS‘S REGISTERS 
sWRITE THE DATA TO REGISTER 
sLOOP UNTIL HALTED 


sSAVE WORK REGISTER 
;GET THE OPERATOR INPUT 
sSTRIP OFF PARITY BIT 


sFORCE PRIORITY ZERO 

sRESTORE SUPERVISOR VECTOR 

sRESTORE SUPERVISOR PRIORITY 

sARE SUPERVISOR INTERRUPTS ENABLED ? 
sBRANCH IF YES 

sTURN OFF TTI INTERRUPTS 

sRESTORE REGISTER 

sRETURN FROM INTERUPT 


sEXIT THE TEST 
TRAP CsExIT 
-WORD L10077-. 
sRETURN TO SUPERVISOR 


sWORD SET IF SUPERVISOR TTI INTER OFF 
sSAVE TTI VECTOR 
sSAVE TTI PRIORITY 


TSVS 
TES 


7012 
7013 
7014 


SCOPE 
100450 100740 100776 101044 


101044 011 067 011 
101113 011 070 011 
101156 000 

101157 124 171 160 
101217 045 116 045 
101275 123 164 141 
101342 123 143 157 
101356 

101356 

101356 104401 

101360 
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T le: LOOPS 


SEQ 242 


7$,8$,9$,10$,11$,128,0 


-_\7*- ss ss = Ss SF FA 


<12 
12 


>'SELECT SCOPE LOOP FROM FOLLOWING OPTIONS:’ 
>! 


@BaNDOUSWMPe oO 


Display This Menu’ 

TSBA Read Access’ 

TSSR Read Access’ 

Initialize (CTSSR Write Access)’ 

TSOB High Byte Write Access’ 

TSDB Low Byte Write Access’ 

TSDB Maintenance Mode Write Access’ 
TSDBX CTSSR High Byte) Write Access’ 
Return to Diagnostic Supervisor’ 


Type RETURN To Stop Scope Loops’ 
SNSA 204 Extended Features Switch Not On «ee ' 


‘Stand-alone Scope Loops Not Executed’ 


-ASCIZ 


‘Scope Loops’ 


10077: 
TRAP 


CsEeTsT 


TSV6 - P 
TEST 


ARAMETER CODING MACRO M1113 06- 
LOOPS 


12: SCOPE 


101360 
101360 


101402 


101402 
101402 
101436 
101462 


177776 


001031 
101436 


000000 
000776 


104 
111 
111 


105 
116 
116 


126 
124 
124 


KS 


FEB-84 17:14 SEQ 243 


-TITLE TSV6 - PARAMETER CODING 


BGNMOD TSV6 
TSV6:: 


-SBTTL HARDWARE PARAMETER CODING SECTION 


¢ 

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


:GET TSBA/TSOB REGISTER ADDRESS. 


GPRMA HPM2,2,0,0,776, YES ;GET VECTOR ADDRESS. 
TSCODE ’ 


HPM2 
-WORD TSLOLIM 
-WORD TSHILIM 


sGPRMD HPM3,4,0,340,0,7, YES ;GET INTERRUPT PRIORITY. 


ENOHRD 
-EVEN 
L10100: 
HPM1: -ASCIZ ‘DEVICE ADDRESS (TSBA/TSDB) ' 


HPM2 : -ASCIZ ‘INTERRUPT VECTOR : 
HPMS: -ASCIZ ‘INTERRUPT PRIORITY ‘ 


TSV6 - PARAMETER 
SOFTWARE PARAMETE 


101512 
101512 
101514 


101514 
101514 
101516 
101520 


101522 
101522 
101522 
101552 


101602 
101632 


000003 


001130 
101552 
177777 


102000 


READ ie SEeTTOn. CO-FEB-04 27:14 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


io 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 


MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSF T 
-WORD L10101-L$SOFT/2 


LSSOFT:: 


3 GPRML 
GPRML 
. WORD 
. WORD 
. WORD 
8 GPRMO 
3 GPRMO 
ENDSF T 
.EVEN 
L10191: 


SPM1,0, -1,YES 
SPM4,2, -1,YES 
TSCODE 

SPM4 


-1 
SPM6.4,0,7777,0,7777, YES 
SPM7,6,0,7777,0,7777, VES 


‘ENABLE TRANSPORT TESTS 
‘INHIBIT ITERATIONS 
‘PER TEST ERROR LIMIT 
‘PER UNIT ERROR LIMIT 
PATCH AREA 


FINALLY A GENEROUS PATCH AREA. 


DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 


; 
; 
; 
; 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; 
; 
; 


» 


GET TRANSPORT TEST FLAG. 
GET ITERATION CONTROL. 


GET LOCAL ERROR LIMIT 
GET GLOBAL ERROR LIMIT 


3 
: 
: 
: AND AN ADJUSTMENT TO ACCOUNT FOR THE "“LASTAD BIT7” HACK 
; 
‘ 


PATCH: 
. BLKW 32 . 
~2. 23771 
LASTAD ;SET LAST USED ADDRESS. 
~EVEN 
» WORD 0 
. WORD 0 
LSLAST:: 


TSV6 - P 


=“ CODING MACRO M1113 06-#09-84 17:14 


SYMBOL TABLE 

ADDSSR 012126 
ADR = 000020 
AMBTSS 006635 
ASSEMB= 000010 
A1716 = 000003 
BADDAT 003156 
BADSSR 015700 
BDVPCR= 177520 
BENBSW 002230 
BIE = 040000 
BITO = 000001 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000004 
BITO3 = 000010 
BITO4 = 000020 
BITOS = 000040 
BITO6 = 000100 
BITO7 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT1S = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 =.001000 
BOE = 000400 
BRINIT 004457 
BSELO = 000000 
BSEL1 = 000001 
CHKAMB 016044 
CHKMAN 020500 
CHKTSS 016336 
CKDROP 017202 
CKEMAX 017102 
CKMSG 011360 
CKMSG2 011500 
CKRAM 011114 
CKRAM2 011224 
CMDPKT 021260 
CMPMEM 017660 
CONFIG 017250 
COUNT 002310 
CSRADD 002206 
CTAB 003164 
CTABE 003176 
CTABM 003164 


G 
G 


HAHOHOOOHOHHOOHOHOOOHHHHHHHHHHHHHOH OHO 


AHHH o 


AHH 


CsAU_ = 
CsAUTO= 
CSBRK = 
CS$BSEG= 
CsBSUB= 
CsCEFG= 
CSsCLCK= 
CSCLEA= 
CsCLOs= 


CSCLP1i= 000006 


CsCvEC= 
CSOCLN= 
Cs000U= 
CSDRPT= 
csOu_ = 
CsEOIT= 
CSEROF = 


002312 G 


002220 G 


023376 


AHHH © 


ag 


an 


an 


FREEHI 
FRESIZ 
FUSI 
FSAU = 
F $AUTO= 
FSBGN = 
F $CLEA= 
FsOU = 
FSEND = 


SEQ 245 


003130 
003126 


FSHARD= 000004 


FSHW = 


FSINIT= 000006 


FSJMP = 


F$MOD = 000000 


FSMSG = 
F $PROT= 
FSPWR = 


004256 
017044 


AAA 


ann 


INTCPC 
INTFLA 


LERRNO= 
LISTAL= 


o an 


AAA 


an 
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SYMBOL TABLE 


ag 


Ana 


AHHNH 


OOHOHHHHoOH 


002320 G 


°o 
~ 
uw 
uw 
PP 
oa 
OH AHHHOO AAH A 


005372 
011014 


o 
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SYMBOL 
RMCHBE = 
RMNCHEN®= 
RMMSGB = 


aan 


an 


$1.IIDe 
$1.I1R« 


TSTFLA 
TSTLOO 
TSTPTR 
TSTSET 
TST12I 
TST13I 
TST141 
TSTiSI 
TST16I 
TST171 
TST16I 
TST19I 
TST2O0I 
TST39I 


G04000 
020000 
040000 
100000 
000010 
000004 


000200 
000100 
000020 
000040 
003062 
006476 
006676 
003116 
003120 
000016 
000014 
006435 
006537 
015552 
015600 
012021 
016704 

00432 
071460 
002166 
000000 


000001 


i 


an 


o 


falaiai 31) 


OHHH OO OA AH 


TST401 


101342 
002000 


: 

rt 

a 
AAHHHHAH 


o 


023446 G 


SEQ 247 


TL7SET 


TSV6 
SYMB 


1T19SNP 
T19SRD 


T19SSR 


003144 G 
003146 G 


- PARAMETER MA - - 
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026420 G 
003150 G 
264 


077535 


C4 


we. ISR= 


SEQ 248 


077225 


So 
3 
uw 
= 
°o 
an 


x3.0CK= 


QAnHAAH 


TSV6_- PARAMETER MACRO M -FEB -84 : 
cosa TAace CODING MACRO M1115 06-FEB-84 17:14 


X3.MBZ= 000006 X3.REV= 000040 x3. TRF= 000020 
X3.MDE= 177400 X3.RIB= 000001 X4,HSP* 100000 
X3.0PI= 000100 X3.SPA= 000200 


- ABS. 102004 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 31032 WORDS ( 122 PAGES) 


DYNAMIC MEMORY: 20614 WORDS ( 79 PAGES) 
ELAPSED TIME: 00:49:10 


CVTSBBO, CVTSBBO. SEQ/ -SP=SVC/ML, TSV1B, TSV22B, TSV3B, TSV4, TSV55B, TSV6 


Lb4 


SEQ 249 


X4.MBZ* 017400 
x4,.RCE* 040000 


X4.TSM= 020000 
X4,WRC* 000377 


